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.REM @ 
.REPT 



SEQ §001 



IDENTIFICATION 



PRODUCT CODE: 
PRODUCT name: 
date: 

MAINTAINER: 

author: 



AC-8516G-MC 

CZDLAGO DL11-E,C/D OFLNE TST 

JUNE 1978 
DIAGNOSTIC GROUP 
ROBERT WHITTON 



THE INFORMATION IN. THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO 
RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. 

NO RESPONSIBILITY IS ASSUMED FOR THE USE OR RELIABILITY OF 
SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL OR ITS 
AFFILIATED COMPANIES. 

COPYRIGHT (C) 1972,1978 BY DIGITAL EQUIPMENT CORPORATION 

THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION: 

DIGITAL PDP UNIBUS MASSBUS 

DEC DECUS DECTAPE 
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n ABSTRACT 

TWO SEPARATE DIAGNOSTIC PROGRAMS ARE PROVIDED FOR THE DL11-E 
(ASYNCRONOUS MODEM INTERFACE). CZDLA (DL11-E OFF LINE 
TESTS) AND CZDLB (DL11-E ON LINE TESTS). THE OFF LINE 
TEST TESTS ALL DL11-E LOGIC . THE OFF LINE TESTS DO NOT REQUIRE THE 
USE OF A MODEM, HOWEVER A SPECIAL JUMPER CONNECTOR H315 IS REQUIRED^ 
THE ON LINE TESTS ARE ESSENTIALLY DATA RELIABILITY TESTS RE- 
QUIRING THE USE OF MODEMS AND A SUITABLE TERMINAL DEVICE. 

THE DL11-C AND DL11-D CAN ALSO BE TESTED WITH THIS OFF LINE TEST. 
THESE ARE BOTH TESTED IN MAINTENANCE MODE AND ONLY THOSE TESTS 
MARKED CD IN THE TEST NUMBER ARE EXECUTED. IN ORDER TO TEST C AND D 
VERSIONS IT IS NECESSARY TO MODIFY THE TABLE AT LOCATION 1300 ACCORDING 
TO THE INSTRUCTIONS CONTAINED THERE. 

TESTS WHICH ARE NOT EXECUTED FOR DL11C+D CAN BE PERFORMED BY 
USING THE SELECT SWITCH OPTION (SR9) . TEST 56 IS A DATA TEST WHICH 
CAN BE USED FOR CABLE TESTING DL11-D'S. WARNING—A FAILURE IN THIS TEST 
MAY OCCUR DUE TO A SPLIT BAUD RATE OF RCVTR/TXVTR, 



THIS DOCUMENT DESCRIBES THE OFF LINE TESTS. 



THE AVAILABLE TESTS ARE: 



PRGO INPUT/OUTPUT LOGIC TESTS 

PRG1 TRANSMITTER SCOPE LOOP 

PRG2 RECEIVER SCOPE LOOP 

PRG3 SINGLE CHARACTER MAINT. MODE DATA TEST 

PRG4 SPECIAL BINARY COUNT MAINTENANCE MODE DATA TEST 



2. REQUIREMENTS 

2.1 EQUIPMENT 

A. PDP 1 1 SYSTEM 

B. DL11-E OR DL11-C OR DL11-D 

C. SPECIAL JUMPER CONNECTOR H315 (SEE DL11 MAINTENANCE MANUAL 
FOrt DETAILED DESCRIPTION) IF DL11-E. 

2.2 STORAGE 

THIS PROGRAM USES ALL OF CORE (4K) EXCEPT THAT AREA RESERVED 
FOR THE BOOTSTRAP AND ABSOLUTE LOADERS. 

3. LOADING PROCEDURE 



THE ABSOLUTE LOADER IS USED TO LOAD THE PROGRAM. 

PAGE 2 
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4. USE PROCEDURE 



THIS PROGRAM HAS BEEN MODIFIED TO RUN WITH OR WITHOUT 
A CONSOLE PROCESSOR. 

IF A CONSOLE MACHINE IS USED; THEN THE PROGRAM 
LOOKS AT THE HARDWARE SWITCH REGISTER. 
IF A CONSOLE-LESS MACHINE IS USED;THEN THE PROGRAM 
AUTOMATICALLY LOOKS AT THE CONTENTS OF LOCATION 
SOFTSR (176) AS A SWITCH REGISTER. 

IT'S THE RESPONSIBILITY OF THE OPERATOR TO SET UP 
THIS LOCATION PRIOR TO STARTING THE PROGRAM. 

BEFORE STARTING ANY OF THE SELECTABLE PROGRAMS MAKE SURE 
THAT THE TTY IS IN REMOTE MODE; AND THAT THE PROGRAM SELECTED 
IS A LEGAL PROGRAM, IE. NO. 0-4, OTHERWISE AN ERROR MESSAGE 
WILL OCCUR. TERMINATE ALL INPUTS WITH A CARRIAGE RETURN. 

A MAP OF DEVICES PRESENT WILL BE TYPED AT HL'N TIME. THIS MAP WILL NOT 

BE TYPED OUT AGAIN UNLESS THE PROGRAM IS 
RESTARTED AT LOCATION 200. A RESTART FROM THIS LOCATION WILL CAUSE 
THE MAP OF DEVICES TO BE TYPED OUT AGAIN AND THEN A NORMAL START 
WILL OCCUR. 



4.1 PRGO INPUT/OUTPUT LOGIC TESTS 

A. LOAD ADDRESS = 000200 (RESTART LOAD ADDR. = 000204) 
TYPE PROGRAM NUMBER = 0. 

THE DIAGNOSTIC WILL IDENTIFY THE PROGAM YOU SELECTED. 
DISCONNECT THE DL11-E FROM THE MODEM AND INSERT THE JUMPER CON- 
NECTOR IN THE MODEM END OF THE CABLE, AND PRESS CONTINUE. 
NOTE, IF THE CABLE IS LEFT CONNECTED TO THE MODEM THE FOL- 
LOWING TESTS WILL fail: 

AT22,AT23,AT25,AT30, AT32, AT56 

B. THE PROGRAM WILL TYPE OUT INSTRUCTIONS TO SET IN THE DESIRED 
SR OPTIONS. PRESS CONTINUE WHEN THE OPTIONS ARE IN THE SR. 

THE AVAILABLE OPTIONS ARE: 



SR 0-6 


ROUTINE TO BE RUN (IF ENABLED BY SR9) 


SR7 


DISABLE STALL MODE 


SR9 


LOOP SELECTED ROUTINE 


SR10 


HALT AT END OF CURRENT TEST 


SR1 1 


INHIBIT ITERATION 


SR12 


SELECT LINE NUMBER AND LOCK ON IT 


SR13 


INHIBIT PRINTOUT 


SR14 


SCOPE 


SR15 


HALT ON ERROR. 



C. THE PROGR/M WILL NOW REQUEST THE LINE #(IF SR12=1) YOU WISH TO 

TEST. TYPE THE LINE # AS REQUESTED, FOLLOWED BY A CARRIAGE RETURN. 
LINE NUMBER REFERS TO THE ADDRESSES TO WHICH THE DL11-E RESPONDS. 

LINE 00 77561X LINE 10 77571X LINE 20 77601X LINE 30 77611X 
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LINE 01 77562X 

LINE 02 77563X 

LINE 03 77564X 

LINE 04 77565X 

LINE 05 77656X 

LINE 06 77567X 

LINE 07 77570X 



LINE 11 77572X 

LINE 12 77573X 

LINE 13 77574X 

LINE 14 77575X 

LINE 15 77576X 

LINE 16 77577X 

LINE 17 77600X 



LINE 21 77bj2X 

LINE 22 77603X 

LINE 23 77604X 

LINE 24 77605X 

LINE 25 77606X 

LINE 26 77607X 

LINE 27 77610X 



LINE 31 77612X 

LINE 32 77613X 

LINE 33 77614X 

LINE 34 77615X 

LINE 35 77616X 

LINE 36 :7617X 



D. THE PROGRAM WILL NOW BEGIN TESTING THE DL11-E OR C/D YOU SELECTED. 
ALL DLII'S WILL BE TESTED AUTOMATICALLY AND SEQUENTIALLY 

UNLESS SR12 IS SELECTED. 

note: all LOGIC TESTS WILL NOT BE RUN AUTOMATICALLY. 
THERE ARE TWO TESTS WHICH REQUIRE MANUAL INTERVENTION 
WHICH ARE USED TO TEST THE SPEED SELECTION SWITCHES. 
THESE ARE TESTS T34,T40. TO EXECUTE THESE TESTS USE SR9 AND 
SR 0-6 TO SELECT THEM. 

E. REFER TO SECTION 5.1.2 FOR ERROR DESCRIPTION 

F. AFTER ONE COMPLETE PASS THE BELL WILL RING 
FOLLOWED BY "END PASS = " WITH THE NUMBER OF 
PASSES COMPLETED SINCE PROGRAM LAST STARTED AND 
THE DEVICE ADDRESS UNDER TEST AND ITS TRAP VECTOR. 

4.2 PRG1 - TRANSMITTER SCOPE LOOP 

A. LOAD ADDRESS = 000200 (RESTART = 000204) 
TYPE PROGRAM NUMBER = 1 . 

THE DIAGNOSTIC WILL IDENTIFY THE PROGRAM YOU SELECTED, AND 
REQUEST THE LINE # YOU WISH TO TEST. TYPE THE LINE # AS RE- 
QUESTED, FJLLOWED BY A CARRIAGE RETURN. 

B. THE PROGRAM WILL REQUEST A CHARACTER CODE, AND A DELAY 

TIME. THE CHARACTER CODE IS THE DATA THE DL11-E WILL TRANSMIT 
AND THE DELAY IS THE TIME ELAPSED BETWEEN SUCCESSIVE TRANS- 
MISSIONS OF ONE CHARACTER. 

C. THE PROGAM WILL RUN WITHOUT ERROR OR END TYPEOUTS. 

4.3 PRG2 - RECEIVER SCOPE LOOP 

A. LOAD ADDRESS = 000200 (RESTART = 000204) 
TYPE PROGRAM NUMBER = 2. 

THE DIAGNOSTIC WILL IDENTIFY THE PROGRAM YOU SELECTED, AND 
REQUEST THE LINE # YOU WISH TO TEST. TYPE THE LINE # AS REQ- 
UESTED, FOLLOWED BY A CARRIAGE RETURN. 

B. THE PROGRAM WILL REQUEST A TEST CHARACTER CODE, AND A DELAY 
TIME. THE CHARACTER CODE IS THE DATA THAT THE DL11-E WILL BE 
TRANSMITTING AND THE DELAY IS THE ELAPSED TIME BETWEEN SUCCES-- 
SIVE CHARACTERS. 

C. THE PROGRAM WILL NOW RUN WITHOUT ERROR OR END TYPEOUTS, 
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PRG3 - SINGLE CHARACTER MAINT MODE DATA TEST 



A. LOAD ADDRESS = 000200 (RESTART = 000204) 
TYPE PROGRAM NUMBER = 3. 

THE DIAGNOSTIC WILL IDENTIFY THE PROGRAM YOU SELECTED, AND 
REQUEST THE LINE # YOU WISH TO TEST. TYPE THE LINE # AS REQ- 
UESTED, FOLLOWED BY A CARRIAGE RETURN. 

B. THE PROGRAM WILL REQUEST A TEST CHARACTER. TYPE THE TEST CHAR- 
ACTER, FOLLOWED BY A CARRIAGE RETURN- 

C. THE PROGRAM WILL NOW RUN CONTINUOSLY REPORTING ANY DATA FAIL- 
URES. 



A. LOAD ADDRESS = 000200 
TYPE PROGRAM NUMBER = 4. 

THE DIAGNOSTIC WILL IDENTIFY THE PROGRAM YOU SELECTED, AND 
REQUEST THE LINE # YOU WISH TO TEST. TYPE THE LINE # AS REQ- 
UESTED, FOLLOWED BY A CARRIAGE RETURN. 

B. THE PROGRAM WILL BEGIN TESTING THE LINE YOU SELECTED, 
AND REPORT ANY DATA ERRORS. 



5- PROGRAM DESCRIPTIONS 

5.1 PRGO - INPUT/OUTPUT LOGIC TESTS 

THE INPUT/OUTPUT LOGIC TESTS CONSIST OF 57(8) ROUTINES WHICH 
MAY BE RUN IN SEQUENTIAL ORDER OR INDIVIDUALLY LOOPED (SEE 
SECT 4.1 , C FOR SWITCH SETTINGS) . THE JUMPER CONNECTOR MUST 
BE INSERTED BEFORE STARTING IF DL11-E. 



5.1 .1 ROUTINE DESCRIPTIONS 



4.5 



PRG4 - SPECIAL BINARY COUNT MAINT. MODE DATA TEST 



ROUTINE 



TESTS 



AT0-AT3 
AT4-AT27 



ADDRESSABILITY OF CSRS & DBRS 
DIDDLES ALL BITS IN THE CSRS AND 
CHECKS THAT THEY CAN BE READ/WRITTEN 
PROPERLY. 



AT31-AT32 

AT33 
AT34 



PROPER OPERATION OF RESET INSTRUCTION 
PROPER OPERATION OF READY BIT 

PROPER OPERATION OF TRANSMIT SPEED SELECTION 



AT35-AT37 



PROPER OPERATION OF DONE BIT 



AT40 



PROPER OPERATION RECEIVER SPEED SELECT 



AT41 



PROPER OPERATION OF DATA OVERRUN 
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AT42-AT52 PROPER OPERATION OF INTERRUPTS 

AT53 READING RXCSR DOES NOT CLEAR DONE 

AT54 ERROR CAUSES INTERRUPT 

AT55 DATA TEST MAINTENANCE MODE 

AT56 DATA TEST WITH JUMPER 

AT57 PROPER OPERATION OF BREAK BIT 



5.1 .2 ERROR DESCRIPriON 

IF A ROUTINE FAILS AND THE INHIBIT PRINTOUT SWITCH IS NOT 
ENABLED (SRI 3) A PRINTOUT RESULTS. THE PRINTOUT FORMAT IS: 

T(ROUTINE#) PC=(PC OF ERROR CALL) RXCSR= ( ADDRESS OF DEVICE UNDER TEST) 
AND AN ADDITIONAL/MESSAGE (IF APPLICABLE) 

T005 PC=XXXX RXCSR=XXXX 

T122 PC=XXXX RXCSR=XXXX DATA S/B: WAS: 

INDICATING A DATA ERROR 

TO RESUME TESTING PRESS CONTINUE. 

IF THE VECTOR PROVIDED BY THE INTERRUPTING DL11-E IS INCORRECT 
A TRAP TO THE WRONG LOCATION WILL OCCUR AND AN ERROR MESSAGE 
WILL OCCUR. 

5.1 .3 JUMPER CONNECTOR 

THE JUMPER CONNECTOR TESTS THOSE F/F'S, GATES (RING INDICATOR. 
CARRIER TRANSITION, CLEAR TO SEND, AND SUPERVISORY RECEIVE 
DATA) WHICH CANNOT BE TESTED UNLESS A DATA SET IS ACTUALLY 
CONNECTED TO THE DL11-E, IN ADDITION TO TESTING DL11-E LOGIC 
THE JUMPER ALSO TESTS CABLE WIRING TO/FROM THE DL11-E/DATA 
SET. THE FOLLOWING TESTS WILL FAIL IF THE CABLE IS NOT 
INSALLED IN THE DL11-E: 

AT22 , AT23 , AT25 . AT30 , AT32 , AT56 



5.2 PRG1-TRANSMITTER SCOPE LOOP 

THE PURPOSE OF PRG1 IS TO ALLOW SCOPING OF TRANSMITTER 
FUNCTIONS IN A RUN CONDITION USING USER SPECIFIED DL11-E 
PARMATERS AND DATA. NO ERROR PRINTOUTS ARE PROVIDED. 

5.3 PRG2-RECEIVER SCOPE LOOP 



THE PURPOSE OF PRG2 IS TO ALLOW SCOPING OF RECEIVER FUNCTIONS 
IN A RUN CONDITION USING USER SPECIFIED DL11-E PARAMETERS 
AND DATA. NO ERROR PRINTOUTS ARE PROVIDED. 
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5.4 PRG3-SINGLE CHARACTER MAINT MODE DATA TEST 

PRG3 TRANSMITS, RECEIVES AND CHECKS RECEIVED DATA USING USER 
SPECIFIED DL11-E PARAMETERS, AND DATA. 

5.4.1 ERROR PRINTOUTS 

SELF EXPLANITORY ERROR PRINTOUTS ARE PROVIDED. 

5.5 PRG4-SPECIAL BINARY COUNT MAINT MODE DATA TEST 

PRG4 IS THE SAME AS PRGO ROUTINE 54 EXCEPT THAT 
THE USER SPECIFIES DL11-E RUNNING PARAMETERS. 

5.5.1 ERROR PRINTOUTS 

SELF EXPLANATORY PRINTOUTS ARE PROVIDED. 



6.0 POWER FAIL 

A POWER FAIL ROUTINE IS INCLUDED IN THE PROGRAM. WHEN THE POWER FAILS 
THE PROGRAM WILL AUTOMATICALLY RESTART USING THE PRESENT SR OPTIONS 
AND THE LINE PREVIOUSLY SELECTED. NOTE: THE POWER MAY FAIL WHEN THE 
PROGRAM IS EXECUTING A 'RESET' INSTRUCTION, IN THIS CASE OPERATOR 
INTERVENTION IS NEEDED TO PRESS CONTINUE. AN ERROR TYPEOUT RESULTS 
AND WILL TYPE THE PROGRAM #, THE ROUTINE THAT WAS RUNNING AT THE TIWE 
THE POWER FAILED (PROGRAM ONLY) , AND THE PC OF THE POWER FAIL ER- 
ROR CALL. 

RECOVERED FROM POWER FAILURE. 

P(PRG#) T(ROLVINE #) PC = (ADDRESS OF ERROR CALL) 
• ENDR 



375 .LIST SEO,BIN 

376 .ENABLE ABS.AMA 
377 

378 ;DL11-E,C/D DIAGNOSTIC PROGRAM (OFF LINE TESTS) 

379 ; 

380 ;PRGO- INPUT-OUTPUT LOGIC TESTS 

381 ;PRG1- TRANSMITTER SCOPE LOOP 

382 ;PRG2- RECEIVER SCOPE LOOP 

383 ;PRG3- SINGLE CHARACTER MAINTENANCE MODE DATA TEST 

384 ;PRG4- SPECIAL BINARY COUNT MAINTENANCE MODE DATA TEST 

385 ; 

386 ;STANDARD SR SWITCH OPTIONS (SWITCH SET TO A 1 ) 
387 

388 ;SR15- HALT ON ERROR 

389 ;SR14- SCOPE. 

390 ;SR13- INHIBIT PRINTOUT 

391 ;SR12- SELECT LINE NUMBER AND LOCK ON IT 
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392 
393 
394 
395 
396 
397 









; STANDARD CONFIGURAT 








;CHARACTER LENGTH 8 


400 






;STOP CODE 2 


401 




000000 


. =0 


402 


000000 


005706 


ERTP 






000000 





Tit 


UUUUU't 


tSt\ CJ C\R 


MACHER: ERTP 




000006 


000040 


40 


406 


\J\i\J\J 1 u 


ists r\R 


ERTP 


407 


0000 1 2 


000 1 00 


100 


408 


0000 1 4 


005706 


ERTP 




UUUU 1 o 


nn n i /in 


1 40 




UUUUicU 


uu OU 1 H 


MAPVEC 


^11 




uu UsJ^U 


PRTY7 


^1 o 
^1 Q 


UUVJUZt 


006234 


PFAIL 




U vUU^O 


000340 


PRTY7 




000030 


002766 


EMTINT 




wUUU 


uu UO*4U 


PRTY7 






005706 


ERTP 




vUUUJD 


nn n "j/in 
uu uo^u 


340 


418 




000042 


.+2 


419 


000042 


000000 


HALT 


450 




000046 


. =46 




000046 


0053 1 2 


LOGIC 


422 




0001 65 


•REPT 117. 








.+2 


424 






4 


425 






.ENDR 


426 








427 








428 






{EQUATE STATEMENTS 


429 




177776 


PSW=177776 


430 




001 176 


SPB0T=1 176 


431 




000240 


NOP=240 


432 




000000 


OPEN=0 


433 




100000 


MANUAL=BIT15 


434 




100000 


BIT15=100000 


435 




040000 


BIT14=40000 


436 




020000 


BIT13=20000 


437 




01 0000 


BIT12=10000 


438 




004000 


BIT1 1=4000 


439 




002000 


BIT10=2000 


440 




001000 


BIT9=1000 


441 




000400 


BIT8=400 


442 




000200 


BIT7=200 


443 




000100 


BIT6=100 


444 




000040 


BIT5=40 


445 




000020 


BIT4=20 


446 




000010 


BIT3=10 


447 




000004 


BIT2»4 



;SR11- INHIBIT ITERATION. 

;SR10- HALT AT END CURRENT TEST, TEST NO. IN DATA LIGHTS 
;SR9- SELECT ROUTINE. 

;SR7" DISABLE STALL MODE AND RUN FULL SPEED. 

;SR6 THROUGH SRO - NUMBER OF ROUTINE TO BE SELECTED. 



jUNASSIGNED TRAP 

;SP OVERFLOW, BUS ERROR TRAP 

•.RESERVED INSTRUCTION TRAP 

;TRACE TRAP 

;TRAP TO MAP VECTOR 

; POWER FAIL TRAP 

;EMT TRAP 



;TRAP TO TRAP REPORTER 
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SEQ 0009 



448 
449 
450 
451 
452 
453 
454 
455 
456 
457 
458 
459 
460 
461 
462 
463 
464 
465 
466 
467 
468 
469 
470 
471 
472 
473 
474 
475 
476 
477 
478 
479 
480 
481 
482 
483 
484 
485 
486 
487 
488 
489 
490 
491 
492 
493 



000174 
000176 



000002 
000001 
005726 
022626 
000340 
000300 
000240 
000200 
000140 
000100 
000040 
000000 
104000 
104001 
104002 
104003 
104004 
104005 
104006 
104007 
104010 
10401 1 
104012 
104013 
104014 
104015 
104016 
104017 
104020 
177777 
100000 



000174 
177570 
000000 
000200 

000137 001640 



BIT1=2 

BIT0=1 

P0PSP=5726 

P0PSP2=022626 

PRTY7=340 

PRTY6=300 

PRTY5=240 

PRTY4=200 

PRTY3=140 

PRTY2=100 

PRTY1=40 

PRTYO=0 

TYPE=EMT+0 

TYPES=EMT+1 

STALL=EMT+2 

ERR0R=EMT+3 

DATCHK=EMT+4 

CHALTcEMT+5 

STRXV=EMT+6 

STTXV=EMT+7 

EHALT=EMT+10 

SRESET=EMT+11 

SC0PE=EMT+12 

SAVREG=EMT+13 

RSTREG=EMT+14 

ERR0R1=EMT+15 

DELAY=EMT+16 

TIMERX=EMT+17 

TIMETX=EMT+20 

ATLAST=-1 

CD=100000 



000204 
00020^ 000137 



006414 



. LIST 
. = 174 
SRPTR: 177570 
SOFTSR: 000000 
.=200 
UMP 
.=204 
JMP 
.=1200 



ME 



;POP THE STACK. SAME AS TST (6)+ 

;POP STACK TWICE. SAME AS CMP (S)*. (6)4 

; PRIORITY LEVEL DEFINITIONS 



JFLAG FOR C/D TESTS 



;G0 TO START OF PROGRAfyS. 



@*RESTART 



494 










495 


001200 


175610 


RXCRO: 


175610 


496 


001202 


175620 


RXCR1 : 


175620 


497 


001204 


175630 


RXCR2: 


175630 


498 


001206 


175640 


RXCR3: 


175640 


499 


001210 


175650 


RXCR4: 


175650 


500 


001212 


175660 


RXCR5: 


175660 


501 


001214 


175670 


RXCR6: 


175670 


502 


001216 


175700 


RXCR7: 


175700 


503 


001220 


175710 


RXCRIO: 


175710 



DEVICE ADDRESS LIST 

LSB BITO IS SET TO A 1 BY MAPPER IF DEVICE NOT FOUND 
TO TEST THAT LINE NOT FOUND CLEAR BITO IN THAT DEVICE ADDRESS 
IN THIS TABLE AFTER MAPPING DONE 

;LINE DEVICE ADDRESS (RXCSR) 

;LINE 1 DEVICE ADDRESS (RXCSR) 

;LINE 2 DEVICE ADDRESS (RXCSR) 

•.LINE 3 DEVICE ADDRESS (RXCSR) 

;LINE 4 DEVICE ADDRESS (RXCSR) 

;LINE 5 DEVICE ADDRESS (RXCSR) 

;LINE 6 DEVICE ADDRESS (RXCSR) 

JLINE 7 DEVICE ADDRESS (RXCSR) 

JLINE 10 DEVICE ADDRESS (RXCSR) 
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SEQ 0010 



504 
505 
506 
507 
508 
509 
510 
511 
512 
513 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 
530 
531 
532 
533 
534 
535 
536 
537 
538 
539 
540 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 
551 
552 
553 
554 
555 
556 
557 
558 
559 



001222 
001224 
001226 
001230 
001232 
001234 
001236 
001240 
001242 
001244 
001246 
001250 
001252 
001254 
001256 
001260 
001262 
001264 
001266 
001270 
001272 
001274 
001276 
001300 



001302 
001304 
001306 
001310 
001312 
001314 
001316 
001320 
001322 
001324 
001326 
001330 
001332 
001334 
001336 
001340 
001342 
001344 
001346 
001350 
001352 
001354 
001356 
001360 



175720 
175730 
175740 
175750 
175760 
175770 
176000 
176010 
176020 
176030 
176040 
176050 
176060 
176070 
176100 
1761 10 
176120 
176130 
176140 
176150 
176160 
176170 
177777 
177777 



040377 
040377 
040377 
040377 
040377 
040377 
040377 
040377 
040377 
040377 
040377 
040377 
040377 
040377 
040377 
040377 
040377 
040377 
040377 
040377 
040377 
040377 
040377 
040377 



RXCR1 1 : 
RXCR12: 
RXCR13: 
RXCR14: 
RXCR15: 
RXCR16: 
RXCR17: 
RXCR20: 
RXCR21 : 
RXCR22: 
RXCR23: 
RXCR24: 
RXCR25: 
RXCR26: 
RXCR27: 
RXCR30: 
RXCR31 : 
RXCR32: 
RXCR33: 
RXCR34: 
RXCR35: 
RXCR36: 
XORADD: 
RXEND: 



175720 
175730 
175740 
175750 
175760 
175770 
176000 
176010 
176020 
176030 
176040 
176050 
176060 
176070 
176100 
1761 10 
176120 
176130 
176140 
176150 
176160 
176170 
177777 
177777 



HUE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 



11 DEVICE 

12 DEVICE 

13 DEVICE 

14 DEVICE 

15 DEVICE 

16 DEVICE 

17 DEVICE 

20 DEVICE 

21 DEVICE 

22 DEVICE 

23 DEVICE 

24 DEVICE 

25 DEVICE 

26 DEVICE 

27 DEVICE 

30 DEVICE 

31 DEVICE 

32 DEVICE 

33 DEVICE 

34 DEVICE 

35 DEVICE 

36 DEVICE 

37 SPEC I A 
XX DEVICE 



ADDRESS ( 

ADDRESS ( 

ADDRESS { 

ADDRESS ( 

ADDRESS ( 

ADDRESS ( 

ADDRESS { 

ADDRESS ( 

ADDRESS ( 

ADDRESS ( 

ADDRESS { 

ADDRESS ( 

ADDRESS ( 

ADDRESS ( 

ADDRESS ( 

ADDRESS ( 

ADDRESS { 

ADDRESS ( 

ADDRESS ( 

ADDRESS ( 

ADDRESS ( 

ADDRESS ( 
L ADDRESS 

ADDRESS ( 



RXCSR) 
RXCSR) 

RXCSR) 

RXCSR) 

RXCSR) 

RXCSR) 

RXCSR) 

RXCSR) 

RXCSR) 

RXCSR) 

RXCSR) 

RXCSR) 

RXCSR) 

RXCSR) 

RXCSR) 

RXCSR) 

RXCSR) 

RXCSR), 

RXCSR)' 

RXCSR) 

RXCSR) 

RXCSR) 

FOR XOR 

RXCSR) 



CHARACTER LENGTH, PRIORITY, C/D MASK 

INITIALLY SET FDR DL11-E. PRIOR I TY=4 , CHARACTER LENGTH=8 
BIT 15 SET TO A 1 » THAT LINE HAS DL11-C OR DL11-D 
EX: 140377 - DL11C OR DL1 ID, PRIORITY = 4, CHARACTER LENGTH 
BITS 12-14 = PRIORITY LEVEL THAT LINE 

BITS 0-7 = CHARACTER MASK EX. 377=8, 177=7. 77=6, 37=5 



CMASO: 
CMAS1 : 
CIVIAS2: 
CMAS3: 
CMAS4: 
CMAS5: 
CMAS6: 
CMAS7: 
CMAS10 
CMAS1 1 
CMAS12 
CMAS13 
CMAS14 
CMAS15 
CMAS16 
CMAS17 
CMA520 
CMAS21 
CMAS22 
CMAS23 
CMAS24 
CMAS25 
CMAS26 
CMAS27 



040377 
040377 
040377 
040377 
040377 
040377 
040377 
040377 
040377 
040377 
040377 
040377 
040377 
040377 
040377 
040377 
040377 
040377 
040377 
040377 
040377 
040377 
040377 
040377 



LINE CHARACTER MASK, 
LINE 1 CHARACTER MASK, 
LINE 2 CHARACTER MASK, 
LINE 3 CHARACTER MASK, 
LINE 4 CHARACTER MASK, 
LINE 5 CHARACTER MASK, 
LINE 6 CHARACTER MASK, 
LINE 7 CHARACTER MASK, 
LINE 10 CHARACTER MASK 
LINE 1 1 CHARACTER MASK 
LINE 12 CHARACTER MASK 
LINE 13 CHARACTER MASK 
LINE 14 CHARACTER MASK, 
LINE 15 CHARACTER MASK, 
LINE 16 CHARACTER MASK, 
LINE 17 CHARACTER MASK, 
LINE 20 CHARACTER MASK, 
LINE 21 CHARACTER MASK, 
LINE 22 CHARACTER MASK, 
LINE 23 CHARACTER MASK, 
LINE 24 CHARACTER MASK, 
LINE 25 CHARACTER MASK, 
LINE 26 CHARACTER MASK, 
LINE 27 CHARACTER MASK. 



PRIORITY, C/D FLAG 

PRIORITY, C/D FLAG 

PRIORITY, C/D FLAG 

PRIORITY. C/D FLAG 



PRIORITY 
PRIORITY 
PRIORITY. 



C/D FLAG 
C/D FLAG 
C/D FLAG 



PRIORITY. C/D FLAG 
PRIORITY, C/D FLAG 
PRIORITY, 
PRIORITY. 
PRIORITY. 
PRIORITY, 
PRIORITY. 
PRIORITY, 
PRIORITY, 
PRIORITY, 
PRIORITY, 
PRIORITY, 
PRIORITY, 
PRIORITY, 



C/D FLAG 
C/D FLAG 
C/D FLAG 
C/D FLAG 
C/D FLAG 
C/D FLAG 
C/D FLAG 
C/D FLAG 
C/D FLAG 
C/D FLAG 
C/D FLAG 
C/D FLAG 



PRIORITY, C/D FLAG 
PRIORITY, C/D FLAG 
PRIORITY, C/D FUG 
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SEQ 0011 



CZDLAG. 
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560 


001362 


040377 


CMAS30: 


040377 


561 


001364 


040377 


CMAS31 : 


040377 


562 


001366 


040377 


CMAS32: 


040377 


563 


001370 


040377 


CMAS33: 


040377 


564 


001372 


040377 


CMAS34: 


040377 


565 


001374 


040377 


CMAS35: 


040377 


5S6 


001376 


040377 


CMAS36: 


040377 


567 


001400 


040377 


CMAS37: 


040377 


568 










569 


001402 


000000 


UMASK: 





570 


001404 


000000 


RMASK: 





571 


001406 


177740 


STLMSK: 


177740 


572 










573 


001410 


000000 


RXCSR: 





574 


001412 


000000 


rxbuf: 





575 


001414 


000000 


TXCSR: 





576 


001416 


000000 


TXBUF: 





577 


001420 


000000 


RXVTR: 





578 


001422 


000000 


RXLVL: 





579 


001424 


000000 


Txvtr: 





580 


001426 


000000 


TXLVL: 





581 






; 41 * # « « « 




582 










583 


001430 


177560 


TKS: 


177560 


584 


001432 


177562 


TKB: 


177562 


585 


001434 


177564 


TPS: 


177564 


586 


001436 


177566 


TPB: 


177566 


587 


001440 


000060 


TKVTR: 


60 


588 


001442 


000200 


TKLVL: 


PRTY4 


589 


001444 


000064 


TPVTR: 


64 


590 


001446 


000200 


TPLVL: 


PRTY4 


591 


001450 


000000 


prgnum: 


OPEN 


592 


001452 


000000 


KSTART: 


OPEN 


593 


001454 


000000 


CURTST: 


OPEN 


594 


001456 


000000 


RTNNO: 


OPEN 


595 


001460 


000000 


TNNO: 





596 


001462 


000000 


NXTST: 


OPEN 


597 


001464 


000000 


ICTR: 


OPEN 


598 


001466 


000000 


SCOPTR: 


OPEN 


599 


001470 


000000 


OLDPS: 





600 


001472 


000000 


FMAP: 





601 


001474 


006446 


PRGTAB: 


PRGO 


602 


001476 


014522 




PRG1 


603 


001500 


014574 




PRG2 


604 


001502 


014672 




PRG3 


605 


001504 


01 4732 




PRG4 


606 


001506 


0051 10 




INCRPG 


607 


001510 


0051 10 




INCRPG 


608 


001512 


0051 10 




INCRPG 


609 


001514 


003342 


EMTTAB: 


TYP 


610 


001516 


003464 




TYPS 


611 


001520 


003774 




STAL 


612 


001522 


005516 




ERR 


613 


001524 


005424 




DTCHK 


614 


001526 


000000 




OPEN 


615 


001530 


003120 




STLSRV 



•.LINE 30 CHARACTER MASK, PRIORITY, C/D FLAG 

ILINE 31 CHARACTER MASK, PRIORITY, C/D FLAG 

; LINE 32 CHARACTER MASK, PRIORITY, C/D FLAG 

•.LINE 33 CHARACTER MASK. PRIORITY, C/D FLAG 

;LINE 34 CHARACTER MASK, PRIORITY, C/D FLAG 

JLINE 35 CHARACTER MASK, PRIORITY, C/D FLAG 

JLINE 36 CHARACTER MASK, PRIORITY, C/D FLAG 

;LINE 37 SPECIAL ADDRESS FOR XOR 

;MASK FOR DEVICE UT 

;MASK FOR CHAR LENGTH FOR DEVICE UT 
;MASK FOR MAX RANDOM STALL 

; RECEIVER UNDER TEST 
; RECEIVER BUFFER UNDER TEST 
; TRANSMITTER CSR UNDER TEST 
; TRANSMITTER BUFFER UNDER TEST 
; RECEIVER VECTOR UNDER TEST 
•.RECEIVER PRIORITY LEVEL UT 
TRANSMITTER VECTOR UNDER TEST 
;TRANSMITTER PRIORITY LEVEL UT 



LSR CSR 
LSR BUFFER 
LSP CSR 
LSP BUFFER 

LSR INTERRUPT VECTOR 

LSR PRIORITY LEVEL 

LSP INTERRUPT VECTOR 

LSP PRIORITY LEVEL 

CONTAINS CURRENT PROGRAM* 

CURRENT PROGRAM START ADDRESS. 

CONTAINS ADDR OF CURRENT TEST. 

CONTAINS CURRENT TEST #. 

CONTAINES EDITED TNUM 

CONTAINS ADDR OF NEXT TEST. 

CONTAINS CURRENT ITERATION COUNT 

CONTAINS CURRENT SCOPE POINTER. 

PS SAVED FROM TRAP TO EMT ROUTINE 

MAPPING FLAG, Is MAPPING IN PROGRESS 

PRGO START ADDRESS 

PRG1 START ADDRESS 

PRG2 START ADDRESS 

PRG3 START ADDRESS 

PRG4 ST,->RT ADDRESS 

INCORRECT PROGRAM SELECTED 



•.POINTER TO TYPEOUT ROUTINE 

; POINTER TO CHAINED MESSAGES ROUTINE 

; POINTER TO RANDOM STALL ROUTINE 

; POINTER TO ERROR ROUTINE 
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SEQ 0012 



616 


001532 


003154 








STLSPV 




617 


001534 


005362 








EHLT 




618 


001536 


003210 








SRSETT 




619 


001540 


002540 








CHAINN 




620 


001542 


003020 








SAVRG 




621 


001544 


003060 








RSTRG 




622 


001546 


005540 








ERR1 




623 


001550 


003726 








DLY 




624 


001552 


004044 








TMRX 




625 


001554 


004054 








TMTX 




626 










; 






627 


001556 


000000 






CRBUF: 


OPEN 




628 


001560 


000000 






CRBUFA: 


OPEN 




629 


001562 


000000 






crbufb: 


OPEN 




630 


001564 


000000 






CTRO: 


OPEN 




631 


001566 


000000 






CTR1 : 


OPEN 




632 


001570 


000000 






CTR2: 


OPEN 




633 


001572 


000000 






CTR3: 


OPEN 




634 


001574 


000000 






CTR4: 


OPEN 




635 


001576 


000000 






CTR5: 


OPEN 




636 


001600 


000000 






CTR6: 


OPEN 




637 


001602 


000000 






CTR7: 


OPEN 




638 


001604 


000000 






TXCSRT: 


OPEN 




639 


001606 


000000 






RXCSRT: 


OPEN 




640 


001610 


000000 






rxbuft: 


OPEN 




641 


001612 


000000 






FOUNDV: 







642 


001614 


000000 






LINENO: 







643 


001616 


000000 






temp: 


OPEN 




644 


001620 


000000 






TEP^PI : 







645 


001622 


000000 






TEMP2: 







646 


001624 


000000 






COUNT: 







647 


001626 


000000 






ftitle: 







648 


001630 


000000 






FNDNE: 







649 


001632 


000000 






TOPC: 







650 


001634 


000000 






FROMPC: 







651 


001636 


000000 






pascnt: 







652 


001640 


01 2706 


001 176 




STARTZ: 


MOV 


#SPB0T,%6 


653 


001644 


01 3746 


000006 






MOV 


6.-(SP) 


654 


001650 


01 3746 


000004 






MOV 


4,-(SP) 


655 


001654 


01 2737 


001670 


000004 




MOV 


#1$,4 


656 


001662 


005777 


176306 






TST 


©SRPTR 


657 














2$ 


658 


001666 


000404 








BR 


659 


001670 


012737 


000176 


000174 


1$: 


MOV 


#SOFTSR,SRPTR 


660 
















661 


001676 


022626 








CMP 


(6)+,(6)+ 


662 


001700 


01 2637 


000004 




2$: 


MOV 


(6)+, 4 


663 


001704 


01 2637 


000006 






MOV 


(6)+, 6 


664 


001710 


005037 


001626 






CLR 


@#FTITLE 


565 


001714 


013746 


000004 






MOV 


®>#4,-(%6) 


666 


001720 


01 2737 


002020 


000004 




MOV 


#X0RA,i'#4 


667 


001 726 


005737 


177060 






TST 


©#177060 


668 


001732 


01 2637 


000004 






MOV 


(%6)+,@#4 


669 


001736 


012737 


174000 


001276 




MOV 


#1 74000, @#XORADD 


670 


001744 


012737 


177777 


002016 




MOV 


#-1 ,@#XDRFLG 


671 


001752 


104000 








TYPE 





POINTER TO ERROR HALT ROUTINE. 



;SAVE CURRENT VECTOR 

;SET UP TIME OUT VECTOR 

;TRY TO REFERENCE THE 

jHARDWARE SWITCH REGISTER 

; BRANCH IF NO TIME OUT TRAP OCCURRS 

; CHANGE THE SWITCH REGISTER POINTER 

;T0 POINT TO A SOFTWARE SWITCH REGISTER 

; RESTORE THE STACK 

; RESTORE TIME OUT VECTOR 
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P11 30-MAR-78 
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672 


001754 


001762 








MESSl 






673 


001756 


000137 


002044 






JMP 


®#START 




674 


001762 


005015 


047531 


020125 


MESSl : 


.ASCII 


<15><12>«Y0U ARE 


ON AN XOR TESTERS* 


675 


001770 


051 101 


020105 


0471 17 










676 


001776 


040440 


020116 


047530 










677 


002004 


020122 


042524 


052123 










678 


002012 


051 105 


100 












679 




002016 








.EVEN 






680 


002016 


000000 






XORFLG: 


.WORD 







681 
682 


002020 


022626 






XORA: 


CMP 


(%6)+.(%6)+ 




683 


002022 


012637 


000004 






MOV 


(%6)+,i>#4 




684 


002026 


012737 


177777 


001276 




MOV 


#-1 ,@#XORADD 




685 


002034 


005037 


002016 






CLR 


©iS'XORFLG 




686 


002040 


000137 


002044 






UMP 


@#START 




687 


















688 


















689 












.MACR 


TSTAA AX,B,C,D,E 


690 


















691 










AT'E' : 


C 




;TEST NUMBER 


692 












AT'D' 




; ADDRESS OF NEXT TEST 


693 












B 




; ITERATION COUNT 


694 












'AX 'A 




; SCOPE ENTRY POINT 


695 












X = X+1 




I 


696 


















697 


















698 












.MACR 


TSTA B.AX.Z 




699 












TSTAA 


AX,B,\X+1+Z,\X+2,\X-I-1 


700 












.ENDM 






701 


















702 


002044 


012706 


001 176 




START: 


MOV 


#SPB0T,%6 


;SET BOTTOM OF SP STACK. 


703 


002050 


01 2737 


006234 


00002^ 




MOV 


#PFAIL,24 




704 


002056 


005037 


001612 






CLR 


FOUNDV 




705 


002062 


005037 


001472 






CLR 


FMAP 




706 


002066 


004737 


003300 






USR 


%7,CLRCD 


; CLEAR DEVICE UT PARAMETERS 


707 


002072 


004737 


003516 






USR 


%7,0VRLAY 


{OVERLAY TRAP AREA 


708 


002076 


005737 


001626 






TST 


FTITLE 


JTITLE PRINTED AND MAP MADE 


709 


002102 


001054 








BNE 


STARTl 


{YES, SKIP OVER THIS 


710 


002104 


104000 








TYPE 






711 


002106 


01 5044 








MTIT 






712 


0021 10 


005237 


001626 






INC 


FTITLE 




713 


0021 14 


005037 


001630 






CLR 


FNONE 


{CLEAR DEVICE PRESENT FLAG 


714 


002120 


01 2737 


002160 


000004 




MOV 


#MAPNE,MACHER 


{SET UP NO DEVICE PRESENT RETURN 


715 


002126 


01 2704 


001200 






MOV 


#RXCR0,%4 


{SET UP DEVICE POINTER 


716 


0021 32 


021437 


001300 




MAPA: 


CMP 


(%4) ,#«RXEND 


{LAST DEVICE 


717 


002136 


001430 








BEQ 


MAPEND 


{YES, EXIT 


718 


002140 


042714 


000001 






BIC 


#BITO, (4) 


{CLEAR ODD ADDRESS 


719 


002144 


005037 


177776 






CLR 


PSW 




720 


002150 


005774 


000000 






TST 


@(4) 


{TEST DEVICE 


721 


002154 


000240 








NOP 






722 


002156 


000404 








BR 


MAPOK 




723 


002160 


052724 


000001 




MAPNE: 


BIS 


#BITO, (4)+ 


{NOT LIVING 


724 


002164 


022626 








P0PSP2 






725 


002166 


000761 








BR 


MAPA 




726 


002170 


01 2437 


001620 






MOV 


(4)+, TEMPI 


{SAVE DEVICE ADDRESS FOR TYPING 


727 


002174 


004537 


004474 






USR 


%5,0ACNV 
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SEQ 0014 



728 


002200 


001620 








TEMPI 






729 


002202 


01 5135 








MDEVAD 






730 


002204 


000006 








6 






731 


002206 


104000 








TYPE 






732 


002210 


01 5135 








MDEVAD 






733 


00221 2 


005237 


001 630 






INC 


FNONE 


;SET HAVE DEVICE 


734 


00221 6 


000745 








BR 


MAPA 




735 


002220 


01 2737 


005706 


000004 


MAPEND: 


MOV 


A'ERTP.MACHER 


; RESET TRAPS 


736 


002226 


005737 


001630 






TST 


FNONE 


;ANY DEVICES PRESENT 


737 


002232 


00 1 424 








BEO 


MAPERR 


;N0, ERROR 


738 


002234 


01 2701 


001200 




START 1 : 


MOV 


#RXCRO ,%1 




739 


002240 


03271 1 


000001 




START2: 


BIT 


#BITO, ( 1 ) 


;IS DEVICE LIVING 


740 


002244 


001013 








BNE 


START3 


;N0, CHECK FOR END 


741 


002246 


01 01 37 


001614 






MOV 


%1 , LINENO 


{CALCULATE LINE NUMBER UNDEa TEST 


742 


002252 


162737 


001 200 


001614 




SUB 


#RXCRO , LINENO 




743 


002260 


006237 


001614 






ASR 


LINENO 




744 


002264 


01 1101 








MOV 


( 1 ) ,%1 


;YES, LOAD AND EXIT 


745 


002266 


004737 


006072 






JSR 


%7, FORMAD 




746 


002272 


000420 








BR 


START4 




747 


002274 


005721 






STARTS: 


TST 


(1 ) + 




748 


002276 


0201 27 


001300 






CMP 


%1 ,#RXEND 


;END OF TABLE 


749 


002302 


001356 








BNE 


START2 


;N0, LOOP 


750 


002304 


104000 






maperr: 


TYPE 






751 


002306 


01 521 1 








MNONE 






752 


002310 


005737 


000042 






TST 


@<y42 


;MONITOR LOAD 


753 


002314 


001402 








BEQ 


.+6 


•,N0, CONTINUE 


754 


002316 


0001 37 


005302 






JMP 


PRGXTL 


JYES, EXIT 


755 


002322 


005037 


001626 






CLR 


FTITLE 




756 


002326 


000000 








HALT 






757 


002330 


0001 37 


002044 






JMP 


START 




758 


002334 


01 2737 


000001 


001636 


START4: 


MOV 


#1 .PASCNT 




759 


002342 


005037 


1 77776 






CLR 


PSW 




760 


002346 


005037 


001456 






CLR 


RTNNO 




761 


002352 


104000 








TYPE 




;CALL FOR PROGRAM NUMBER. 


762 


002354 


01 5155 








PGMSG 






763 


002356 


004737 


003554 






JSR 


PC.RDOCT 


;READ IN PROGRAM NUMBER. 


764 


002362 


01 2600 








MOV 


(SP)+,%0 


; INPUT DATA TO RO 


765 


002364 


042700 


177770 






BIC 


#177770, %0 


; LIMIT (SR) TO BITS 3-0 


766 


002370 


01 0037 


001450 






MOV 


%0,PRGNUM 


;SAVE PROGRAM # 


767 


C02374 


006300 








ASL 


%0 




768 
769 


002376 


000170 


001474 






JMP 


PPRGTAB(O) 


;G0 TO SELECTED PROGRAM. 


770 


002402 


01 3737 


001452 


001462 


GETRDY: 


MOV 


KSTART.NXTST 


;ADDR OF 1ST ROUTINE TO NXTST 


771 


002410 


01 2737 


005706 


000004 


GTRDYX: 


MOV 


#ERTP,MACHER 


; RESET MACHER TRAP. 


772 


002416 


01 2737 


000040 


000006 




MOV 


#40,MACHER+2 




773 


002424 


005037 


001472 






CLR 


FMAP 




774 


002430 


01 2706 


001 176 






MOV 


#SPB0T,%6 


;SET BOTTOM OF STACK. 


775 


002434 


10401 1 








SRESET 




; ISSUE RESET. 


776 


002436 


005037 


177776 






CLR 


PSW 




777 


002442 


004737 


002734 




gtrdya: 


JSR 


%7,F0RWD 


;ROLL FORWARD TO "NEXT" ROUTINE. 


778 


002446 


032777 


001000 


175520 




BIT 


#BIT9,@SRPTR 


; CHECK SELECT ROUTINE SWITCH 


779 


002454 


00101 1 








BNE 


GTRDYC 


; BRANCH IF SELECT ROUTINE SWITCH IS 


780 


002456 


005737 


001402 






TST 


UMASK 


;C/D DEVICE 


781 


002462 


100003 








BPL 


GTRDA1 


;N0, CONTINUE 


782 


002464 


005737 


001456 






TST 


RTNNO 


;THIS A C/D TEST 


783 


002470 


100364 








BPL 


GTRDYA 


;N0, DO NEXT TEST 



175426 CHAINN: 
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GTRDAi: JMP 
BR 

GTRDYC : MOV 
BIC 
CMPB 
BNE 
JMP 

001462 GTRDYD: CMP 
BNE 
JSR 
BR 

BIT 
BEQ 
MOV 
RTI 
TST 
BPL 
MOV 
MOV 
TST 
MOV 
BIT 
BNE 
DEC 
BNE 

P0PSP2 
BIT 
BEQ 
MOV 
BIC 
HALT 
BIT 
BNE 
CMP 
BNE 
JSR 
BR 



C2DLAG 


P1 1 


30-MAR-78 


08:51 


784 


002472 


0001 77 


176756 


785 


002476 


000464 




786 


002500 


01 7700 


175470 


787 


002504 


042700 


177600 


788 


002510 


123700 


001456 


789 


002514 


001002 




790 


002516 


000177 


176732 


791 


002522 


022737 


177777 


792 


002530 


001344 




793 


002532 


004737 


005100 


794 


002536 


000721 




795 








796 


002540 


032777 


040000 


797 


002546 


001403 




798 


002550 


01 3716 


001466 


799 


002554 


000002 




800 


002556 


005737 


002016 


801 


002562 


10001 1 




802 


002564 


01 3746 


000004 


803 


002570 


01 2737 


002676 


804 


002576 


005737 


177060 


805 


002602 


01 2637 


000004 


806 


002606 


032777 


004000 


807 


002614 


001003 




808 


002616 


005337 


001464 


809 


002622 


001352 




810 


002624 


022626 




81 1 


002626 


032777 


002000 


812 


002634 


001405 




813 


002636 


01 3700 


001456 


814 


002642 


042700 


100000 


815 


002646 


000000 




816 


002650 


032777 


001000 


817 


002656 


001251 




818 


002660 


022737 


177777 


819 


002666 


001250 




820 


002670 


004737 


005122 


821 


002674 


000642 




822 








823 


002676 


022626 




824 


002700 


012637 


000004 


825 


002704 


000721 




826 








827 








828 








829 


002706 


005737 


001402 


830 


002712 


100007 




831 


002714 


052777 


000004 


832 


002722 


104016 




833 


002724 


002734 




834 


002726 


005777 


176460 


835 


002732 


000207 




836 








837 








838 


002734 


013705 


001462 


839 


002740 


012537 


001456 



SEQ 001 S 



175316 CHNB: 



CMP 
MOV 
BR 



@CURTST 
CHNB 

@SRPTR,%0 
#177600, %0 
RTNNO, %0 
GTRDYD 
@CURTST 
#-1 , NXTST 
GTRDYA 
%7,INCRTN 
GETRDY 

#BIT14,®SRPTR 
CHNA 

SC0PTR,@%6 

®>#XORFLG 
1$ 

@#4,-(%6) 

#X0R,@#4 

@#1 77060 

(%6)+,®#4 

#BIT1 1 ,#SRPTR 

CHNAA 

ICTR 

CHNAB 

#BIT10,@SRPTR 
CHNB 
RTNNO, %0 
#BIT15,%0 

#BIT9,#SRPTR 

GETRDY 

#-1 .NXTST 

GTRDYX 

%7,PRGEND 

GETRDY 

(%6)+,(%6)+ 

(%6)+,®#4 

CHNAB 



;G0 RUN CURRENT ROUTINE. 
;N0 GO. MANUAL RTN BYPASSED. 

; (SR) TO RO 
;MASK UNDESIRED BITS 
; COMPARE RTNNO TO (RO) 
; BRANCH IF ROUTINE NOT FOUND YET. 
;G0 RUN ROUTINE. 
;N0. CHECK FOR LAST ROUTINE. 
; BRANCH IF NOT LAST ROUTINE. 
;YES. INCORRECT ROUTINE SELECTED. 
;START OVER. 

; CHECK FOR SCOPE OPTION. 
; BRANCH IF SCOPE SW NOT SET. 
;SET UP TO RETURN TO ROUTINE. 
;RETURN TO ROUTINE. 



;TEST FOR XOR 

;TEST INHIBIT ITERATION SWITCH 

; BRANCH IF INHIBIT ITERATION SW SET. 

; DECREMENT ITERATION COUNT. 

; BRANCH 'F COUNT NOT 0. 

;POP STACK TWICE 



; CHECK SELECT ROUTINE SWITCH 
; BRANCH IF SELECT RTN SW SET 
;LAST TEST? 

•.BRANCH IF NOT LAST TEST. 
; PROGRAM END. 



INIT FOR C/D - WITHOUT JUMPER RESET STARTS ASSEMBLING CHARACTER SETTING DONE 
SET MAINT, DELAY, CLEAR RX DONE 



TST 

BPL 

BIS 

DELAY 

1500. 

TST 

RTS 



MOV 
MOV 



UMASK 
CDINX 

#BIT2,®TXCSR 



S>RXBUF 
%7 



NXTST, %5 
(5)+, RTNNO 



;C-D DEVICE 
;N0, EXIT 
;SET MAINT BIT 
JWAIT 1 .5 SEC 

; CLEAR RX DONE 



JADDR OF NEXT ROUTINE TO RS. 
;GET NEXT ROUTINE NUMBER. 
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SEQ 0013 



840 


002744 


01 2537 


00 1 462 




MOV 


(5)+,NXTST 


;GET ADDR OF NEXT "NEXT'' ROUTINE. 


84 1 


002750 




001 464 




MOV 


(5)+, ICTR 


jGET ITERATION COUNT. 


842 


002754 


1 2537 


001 466 




MOV 


(5)4-,SC0PTR 


•,GET SCOPE LOOP ENTRY POINTER. 


843 


002760 




001 454 




MOV 


%5,CURTST 


;ADDR OF NOW CURRENT TEST TO CURTST. 


844 


002764 


000207 






RTS 


%7 


;EXIT FORWD SUBROUTINE. 


845 


n m "7 K A 

sJU 4C 1 DO 


V 1 1 D 




EMT INT 


: MOV 


@%6,-{6) 


;GET SAVED PC. 


847 


002770 




000002 




SUB 


H2 ,®>%6 


; DECREMENT PC BY 2. 


848 


002774 


01 7616 


000000 




MOV 


P(6) ,@%6 




849 


003000 


0063 1 6 




EMTA: 


ASL 


@%6 


;EMT ARG X 2. 


850 


003002 


04 27 1 6 


1 77001 




BIG 


#177001 ,@%6 


; REMOVE 7 MSB. 


85 1 


003006 


0627 1 6 


001514 




ADD 


#EMTTAB,@%6 


;FORM EMT RTN ADDR. 




00301 2 




000000 




MOV 


@(6) ,@%6 




853 


U U u U 1 P 


00 01 36 






UMP 


@{6) + 


;G0 TO EMT ROUTINE. 


854 
















855 








;SAVE 


REGS TO 


4 SUBROUTINE. 




857 


003020 


01 2637 


orjo?4 


SAVBG: 


MOV 


(6)+, SVRPC 


;SAVE PC AND PSW. 


858 


003024 


01 2637 


003056 




MOV 


(6)+, SVRPSW 




859 


003030 


01 0446 






MOV 


%4,-{6) 


;SAVE REGS 0-4 


860 


003032 


01 0346 






MOV 


%3,-(6) 


;IN STACK. 




nmn Til 


1 0246 






MOV 


%2,-(6) 






W W Ow 


0101 46 






MOV 


%1 ,-(6) 






U U Mw 


01 0046 






MOV 


%0,--(6) 




864 


003042 




003056 




MOV 


SVRPSW, -(e) 


; RESTORE PC AND PSW. 


865 


003046 


1 3746 


003054 




MOV 


SVRPC, -(6) 




866 


003052 


000002 






RTI 




;EXIT. 




003054 


000000 




SVRPC: 


OPEN 






868 


003056 


000000 




SVRPSW 


: OPEN 






870 








•RESTORE REGS 


TO 4 SUBROUTINE 




871 
872 


003060 


01 2637 


0031 14 


RSTRG: 


MOV 


(6)+, RSTPC 


•.SAVE PC AND PSW. 


873 


003064 


1 2637 


0031 1 6 




MOV 


(6)+ , RSTPSW 






003070 


01 2600 






MOV 


(6)+,%0 


; RESTORE REGS 0-4 


875 


003072 








MOV 


(6)+,%1 


jFROM STACK. 


876 


003074 


01 2602 






MOV 


(6)+,%2 




877 


003076 


1 2603 






MOV 


(6)+,%3 




878 


003 100 


1 2604 






MOV 


(6)+,%4 




879 


003 1 02 


1 3746 


0031 1 6 




MOV 


RSTPSW, -(6) 


; RESTORE PC AND PSW. 


880 


0031 06 


1 3746 


0031 14 




MOV 


RSTPC, -re) 




881 


0031 1 2 


000002 






RTI 




;EXIT 


882 


0031 1 4 


000000 




RSTPC: 


OPEN 








0031 16 


00 0000 




RSTPSW 


: OPEN 






884 
















885 








;ROUTINE TO SET 


RECEIVER INTERRUPT VECTOR AND PRIORITY 


886 


0031 20 


004737 


006270 


STLSRV 


: JSR 


%7,TSTVEC 




887 


0031 24 


01 7637 


000000 


003144 


MOV 


@(6) ,STPRA+2 


;MOVE VECTOR ADDR TO STPRA+2 


888 


003132 


062716 


000002 




ADD 


)!f'2,@%6 


;SET UP EXIT 


889 


0031 36 


01 3701 


001420 




MOV 


RXVTR,%1 




890 


003142 


01 2721 


000000 


stpra: 


MOV 


#OPEN, {1 )+ 


;SET VECTOR ADDRESS 


891 


003146 


01 3721 


001422 




MOV 


RXLVL, (1 )+ 


;SET PRIORITY 


892 


0031 52 


000002 






RTI 




;EXIT 


893 
















894 








JROUTINE TO SET 


TRANSMITTER INTERRUPT VECTOR AND PRIORITY. 


895 


003154 


004737 


006270 


STLSPV 


: USR 


%7,TSTVEC 





896 
897 
898 
699 
900 
901 
902 
903 
904 
905 
906 
907 
908 
909 
910 
91 1 
912 
913 
914 
915 
916 
917 
918 
919 
920 
921 
922 
923 
924 
925 
926 
927 
928 
929 
930 
931 
932 
933 
934 
935 
936 
937 
938 
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003160 


01 7637 


000000 003200 


MOV 


®(6) ,STPPA+2 


;MOVE VECTOR ADDR TO STPPA-l-2 


003166 


062716 


000002 


ADD 


#2,@%6 


;SET UP EXIT 


003172 


01 3701 


001424 


MOV 


TXVTR,%1 




0031 76 


01 2721 


000000 


STPPA: MOV 


#OPEN, ( 1 )+ 


;SET VECTOR ADDRESS. 


003202 


01 3721 


001426 


MOV 


TXLVL, (1 )+ 


;SET PRIORITY 


003206 


000002 




RTI 




;EXIT. 








•ROUTINE TO ISSUE RESET. 




003210 


01 2700 


052525 


SRSETT: MOV 


#52525, %0 


•,DATA TO RO. 


003214 


0051 00 




COM 


%Q 


;COMPLEMENT (RO). 


003216 


01 0037 


003212 


MOV 


%0,SRSETT+2 


; (RO) TO SRSETT+2. 


003222 


000005 




RESET 




; ISSUE RESET. (RO) IS 


003224 


000002 




RTI 




;DISPLAYED. EXIT. 








•RANDOM NUMBER 


GENERATOR. ROUTINE EXITS WITH NUMBER IN REGISTER 


003226 


01 3700 


003274 


RNGEN: MOV 


RP1 ,%0 




003232 


0061 00 




ROL 


%0 




003234 


0061 00 




ROL 


%0 




003236 


063700 


003276 


ADD 


RP2,%0 




003242 


01 0037 


003274 


MOV 


%0,RP1 




003246 


006100 




ROL 


%0 




003250 


006100 




ROL 


%0 




003252 


063700 


003276 


ADD 


RP2,%0 




003256 


0061 00 




ROL 


%0 




003260 


006100 




ROL 


%0 




003262 


01 0037 


003276 


MOV 


%0,RP2 




003266 


01 3700 


003274 


MOV 


RP1 ,%0 




003272 


000207 




RTS 


%7 


;EXIT. NUMBER IN RO 


003274 


001233 




RP1: 1233 






003276 


007622 




RP2: 7622 












•CLRCD - CLEAR 


CURRENT DEVICE 


PARAMETERS 


003300 


005037 


001416 


CLRCD: CLR 


TXBUF 




003304 


005037 


001414 


CLR 


TXCSR 




003310 


005037 


001410 


CLR 


RXCSR 




003314 


005037 


001412 


CLR 


RXBUF 




003320 


005037 


001420 


CLR 


RXVTR 




003324 


005037 


001424 


CLR 


TXVTR 




003330 


005037 


001422 


CLR 


RXLVL 




003334 


005037 


001426 


CLR 


TXLVL 




003340 


000207 




RTS 


%7 





SEO 0017 



;SUBROUTINE TO OUTPUT ASCII MESSAGE ON TELETYPE PRINTER. 



939 


003342 


01 1600 






TYP: 


MOV 


®%6,%0 


;GET ADDRESS THAT CONTAINS MESSAGE ADDRESS. 


940 


003344 


062716 


000002 






ADD 


#2,@%6 


;SET UP EXIT. 


941 


003350 


01 1000 








MOV 


#%0,%0 


; ADDRESS OF MESSAGE TO RO. 


942 


003352 


1 1 2037 


003462 




TYPA: 


MOVB 


(0)+,TYPDAT 


;GET CHARACTER 


943 


003356 


122737 


000100 


003462 




CMPB 


#100,TYPDAT 


; CHECK FOR''®"CHARACTER 


944 


003364 


001001 








BNE 


TYPC 


; BRANCH IF NOT"@". 


945 


003366 


000002 








RTI 




; TERMINATOR CHAR. DONE. EXIT. 


946 


003370 


122737 


000045 


003462 


TYPC: 


CMPB 


#45,TYPDAT 


; CHECK FOR"%". 


947 


003376 


001416 








BEO 


TYPF 


; BRANCH IF"%" 


948 


003400 


122737 


000043 


003462 




CMPB 


#43,TYPDAT 


;NOT"%" .CHECK FOR"#». 


949 


003406 


001417 








BEQ 


TYPG 


; BRANCH IF »#" 


950 


003410 


004737 


003416 






JSR 


%7,TYPD 


;TYPE CHAR IN TYPDAT 


951 


003414 


000756 








BR 


TYPA 
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SEQ 001 S 



952 
953 
954 
955 
956 
957 
958 
959 
960 
961 
962 
963 
964 
965 
966 
967 
968 
969 
970 
971 
972 
973 
974 
975 
976 
977 
978 
979 
980 
981 
982 
983 
984 
985 
986 
987 
988 
989 
990 
991 
992 
993 
994 
995 
996 
997 
998 
999 
1000 
1001 
1002 
1003 
1004 
1005 
1006 
1007 



003416 
003424 
003430 
003432 
003434 
003442 
003446 
003454 
003460 
003462 



003464 
003466 
003472 
003476 
003504 
003506 
003510 
003512 
003514 



003516 
003522 
003526 
003532 
003534 
003536 
003542 
003546 
003550 
003552 



003554 
003556 
003560 
003562 
003564 
003570 
003574 
003576 
003602 
003606 
003612 
003614 
003620 
003624 
003626 
003632 
003634 
003640 
003642 
003646 
003650 



113777 
105777 
100375 
000207 
1 1 2737 
004737 
1 12737 
004737 
000734 
000000 



003462 
176004 



000015 
003416 
000012 
003416 



176012 TYPD: 



003462 TYPF: 



003462 TYPG: 



MQVB 


TYPDAT,§TPB 


TSTB 


©TPS 


BPL 


.-4 


RTS 


%7 


MQVB 


#15,TYPDAT 


USR 


%7,TYPD 


MOVB 


#12,TYPDAT 


JSR 


%7,TYPD 


BR 


TYPA 



; OUTPUT CHARACTER TO PRINTER 

JWAIT FOR DONE FLAG. 

;EXIT 

;MOVE CARRIAGE RETURN CODE TO TYPDAT 

;G0 TYPE CHAR. 

;MOVE LF CODE TO TYPDAT. 

;G0 TYPE CHAR. 



TYPDAT: OPEN 



012701 000300 

012702 000302 

012703 000004 
01 0221 

01 0321 

062702 000004 
020127 001000 
001401 
000770 
000207 



{SUBROUTINE TO OUTPUT A SERIES OF ASCII MESSAGES ON TELETYPE PRINTER 

;OET ADDRESS THAT CONTAINS MESSAGE ADDRESS 
; UPDATE TO NEXT MESSAGE ADDRESS 
; ADDRESS OF MESSAGE TO TYPSB 
; CHECK FOR TERMINATOR 
; BRANCH IF NOT TERMINATOR. 
JTERMINATOR, EXIT 

;CALL ON TYP SUB TO TYPE MESSAGE 
; ADDRESS OF MESSAGE GOES HERE 
;G0 PROCESS NEXT MESSAGE 



01 1600 




TYPS: 


MOV 


@%6,%0 


062716 


000002 




ADD 


#2,©%6 


01 1037 


003512 




MOV 


W, TYPSB 


022737 


177777 


003512 


CMP 


#-1 .TYPSB 


001001 






BNE 


TYPSA 


000002 






RTI 




104000 




typsa: 


TYPE 




000000 




typsb: 


OPEN 




000763 






BR 


TYPS 



{OVERLAY VECTOR AREA 



OVRLAY: MOV 
MOV 
MOV 

OVRLYA: MOV 
MOV 
ADD 
CMP 
BEO 
BR 

OVRLYB: RTS 



#300, %1 
#302, %2 
#4.%3 
%2,(1)+ 
%3.(1 )+ 
#4,%2 
%1 .#1000 
OVRLYB 
OVRLYA 



{SUBROUTINE TO READ OCTAL DATA 



01 1646 




RDOCT: 


MOV 


(SP),-(SP) 


01 0046 






MOV 


%0,-(SP) 


01 0146 






MOV 


%1 .-(SP) 


005001 




INDAT: 


CLR 


%1 


005037 


001624 




CLR 


COUNT 


105777 


175634 


RDDAT: 


TSTB 


@TKS 


100375 






BPL 


RDDAT 


1 1 7746 


175630 




MOVB 


i>TKB,-(SP) 


042716 


177600 




BIC 


#177600, (SP) 


105777 


175622 


ECDAT: 


TSTB 


@TPS 


100375 






BPL 


ECDAT 


1 1 1677 


175616 




MOVB 


(SP) ,@TPB 


122716 


000015 




CMPB 


#15, (SP) 


001432 






BEO 


RETRN 


122716 


000177 




CMPB 


#177, (SP) 


001423 






BEQ 


RREAD 


122716 


000060 




CMPB 


#60, (SP) 


003020 






BGT 


RREAD 


122716 


000067 




CMPB 


#67, (SP) 


002415 






BLT 


RREAD 


005237 


001624 




INC 


COUNT 



;GET DL11-E VECTOR BASE ADDRESS 
{LOAD VECTOR WITH lOT ERROR TRAP 
{ALL VECTORS BEEN LOADED 

{EXIT 

FROM THE TELETYPE PRINTER 
{MAKE ROOM FOR DATA WORD 
{SAVE RO 
{SAVE R1 

{CLEAR DATA WORD 
{SET NO. OF DIGITS = 
{TEST TTY READ STATUS 
{WAIT 

{PUSH DIGIT ON STACK 
; {++G 

{TEST TTY PRINT STATUS 
{WAIT 

{ECHO CHARACTER 

{IS IT A TERMINATOR? 

{BR IF YES 

{IS IT A RUBOUT? 

;BR IF YES 

{IS IT AN OCTAL DIGIT? 
{BR IF NO 
{TEST AGAIN 
{BR IF NO 

{INC NO. OF DIGITS 
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SEQ 0019 



1008 


003654 


022737 


000007 


1009 


003662 


003407 




1010 


003654 


006301 




101 1 


003666 


006301 




1012 


003670 


006301 




1013 


003672 


162716 


000060 


1014 


003676 


062601 




1015 


003700 


000733 




1016 


003702 


104000 




1017 


003704 


01 7253 




1018 


003706 


005726 




1019 


003710 


000724 




1020 


003712 


01 0166 


000010 


1021 


003716 


005726 




1022 


003720 


01 2601 




1023 


003722 


012600 




1024 


003724 


000207 




1025 








1026 








1027 


003726 


01 1637 


003772 


1028 


003732 


062716 


000002 


1029 


003736 


01 7746 


000030 


1030 


003742 


001411 




1031 


003744 


005037 


177776 


1032 


003750 


012746 


000226 


1033 


003754 


005316 




1034 


003756 


001376 




1035 


003760 


005726 




1036 


003762 


005316 




1037 


003764 


001371 




1038 


003766 


005726 




1039 


003770 


000002 




1040 


003772 


000000 




1041 








1042 








1043 








1044 


003774 


004737 


003226 


1045 


004000 


043700 


001406 


1046 


004004 


001404 




1047 


004006- 


01 0037 


004014 


1048 


004012 


104016 




1049 


004014 


000000 




1050 


004016 


000002 




1051 








1052 








1053 


004020 


004737 


003226 


1054 


004024 


043700 


004040 


1055 


004030 


001773 




1056 


004032 


01 0037 


004042 


1057 


004036 


000207 




1058 


004040 


000000 




1059 


004042 


000000 




1060 








1061 








1062 


004044 


013737 


001410 


1063 


004052 


000403 





CMP 


#7, COUNT 


{MORE THAN SIX DIGITS? { J-H-G 


BLE 


RREAD 


{BR IF YES 


ASL 


%1 


{CLEAR LOWEST THREE BITS 


ASL 


%1 


{OF DATA WORD 


ASL 


%1 




SUB 


#60, (SP) 


{CONVERT TO BINARY 


ADD 


(SP)+,%1 


{ADD DIGIT TO DATA WORD 


BR 


RDDAT 


{GET NEXT DIGIT 


TYPE 




{TELL USER ABOUT ILLEGAL CHARACTER 


DTERR 






TST 


(SP)-f 


{GET RID OF ILLEGAL CHARACTER 


BR 


INDAT 


{START SUBROUTINE AGAIN 


MOV 


%1 ,10(SP) 


{STORE DATA WORD ON STACK 


TST 


(SP) + 


{INC STACK POINTER 


MOV 


(SP)+,%1 


{RESTORE R1 


MOV 


(SP)+,%0 


{RESTORE RO 


RTS 


PC 


{RETURN 



{SUBROUTINE TO DELAY A SPECIFIED NUMBER OF MILLISECONDS 
DLY: 



DLYA: 
DLYB: 



SUBROUTINE TO STALL A RANDOM NUMBER OF MILLISECONDS. MAXIMUM STALL 
DETERMINED BY CONTENTS OF LOC STLMSK. 



MOV 


i>%6,DLCNT 


{GET DELAY COUNT ADDRESS. 


ADD 


#2,@%6 


{SET UP EXIT ADDRESS 


MOV 


@DLCNT,-(6) 


{DELAY COUNT TO STACK 


BEQ 


DLYC 




CLR 


PSW 


{SET PRIORITY 


MOV 


#226, -(6) 


{1 MSEC COUNT TO STACK 


DEC 


®%6 


{DECREMENT 1 MSEC COUNT 


BNE 


DLYB 


{BRANCH IF NOT 0. 


POPSP 




{ZERO. UNCOVER MSECS. COUNT. 


DEC 


@%6 


{DECREMENT IT 


BNE 


DLYA 


{BR IF NOT DONE DELAYING 


POPSP 




{DONE 


RTI 




{EXIT. 


OPEN 




{CONTAINS MILLISECONDS COUNT 



STALA: 
STALB: 



USR 

BIC 

BEQ 

MOV 

DELAY 

OPEN 

RTI 



%7,RNGEN 
STLMSK,%0 
STALB 
%0, STALA 



{GO GET RANDOM NUMBER. 

{# IN RO. APPLY STALL MASK. 

{BRANCH IF RESULT IS 0, 

{DELAY 

{DELAY COUNT 
{DONE. EXIT. 



{SUBROUTINE TO GENERATE RANDOM CHARACTER COUNT 
GRCNT: 



RCMSK: 
RnCNT: 



{SUBROUTINE TO SKIP ON FLAG AND TIME OUT IF SKIP FAILS 
TMRX: MOV RXCSR.SIOT {SET UP RXCSR ADDRESS 

BR TIME1 



JSR 


%7,RNGEN 


{GET RANDOM NUMBER 


BIC 


RCMSK, %0 


{APPLY MASK 


BEQ 


GRCNT 


{TRY AGAIN IF RESULT 


MOV 


%0, RNCNT 


{COUNT TO RNCNT 


RTS 


%7 


{EXIT. 


OPEN 




{RANDOM CHARACTER MASK. 


OPEN 




{RANDOM CHARACTER COUNT. 
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1 064 


004054 


01 3737 


001414 


0041 12 


TMTX: 


MOV 


TXCSR , SIOT 


1 065 


004062 


005037 


0041 10 




TIME1 : 


CLR 


TIMER 


1 066 


004066 


005237 


0041 1 




TIME2: 


INC 


TIMER 


1 067 


004072 


00 1 405 








BEO 


TIMEX 


1 068 


004074 


1 05777 


00001 2 






TSTB 


©SIOT 


1 069 


0041 00 


1 00372 








BPL 


TIME2 


1 070 


0041 02 


06271 6 


000002 






ADD 


#2 ,@%6 


1 071 


0041 06 


000002 






TIMEX: 


RTI 




1 072 


0041 1 


000000 






TIMER: 







1 073 


0041 1 2 


000000 






SIOT: 







1074 
















1075 










jSUBROUTINE TO 


SELECT LINE 


1076 


0041 14 


032777 


010000 


174052 


LINSEL: 


BIT 


#BIT12,@SRPTR 


1077 


004122 


001003 








BNE 


LINSLX 


1078 


004124 


005037 


001612 






CLR 


FOUNDV 


1079 


004130 


000205 








RTS 


5 


1080 


004132 


004737 


003516 




LINSLX: 


dSR 


%7,0VRLAY 


1081 


004136 


004737 


003300 






JSR 


%7,CLRCD 


1082 


004142 


104000 








TYPE 




1083 


004144 


016657 








LDLINE 




1084 


004146 


004737 


003554 






JSR 


PC.RDOCT 


1085 


004152 


012637 


001616 






MOV 


(SP) + ,Tl:MP 


1086 


004156 


042737 


177740 


001616 




BIC 


#177740, TEMP 



;SET UP TXCSR ADDRESS 

; BRANCH IF COUNTER OVERFLOW 

;SET UP EXIT RETURN 

; BRANCH IF SET 
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1087 004164 013737 001616 001614 

1088 004172 006337 001616 



MOV 
ASL 



TEMP.LINENO ;SAVE FOR TYPING 

TEMP 
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SEQ ooaa 



1089 


0041 76 


01 3701 


001616 






MOV 


TEMP,%1 




1090 


004202 


016101 


001200 






MOV 


RXCROd ) 


;GET RXCSR DEVICE ADDRESS 


1091 


004206 


032701 


000001 






BIT 


)5'BIT0,%1 


;IS DEVICE THERE 


1092 


004212 


001403 








BEO 


LINB 


;YES 


1093 


004214 


104000 






LINA: 


TYPE 




;N0, REPORT 


1094 


004216 


01 7210 








MNOLIN 






1095 


004220 


000744 








BR 


LINSLX 




1096 


004222 


004737 


006072 




LINB: 


JSR 


%7,F0RMAD 




1097 


004226 


005037 


177776 






CLR 


PSW 




1098 


004232 


052737 


000001 


001472 




BIS 


<^BITO, FMAP 


;SET MAPPING FLAG 


1099 


004240 


042777 


000100 


175146 




BIC 


#BIT6,®TXCSR 




1 100 


004246 


052777 


000100 


175140 




BIS 


(?BIT6,@TXCSR 




1101 


004254 


000240 








NOP 






1 1 02 


004256 


000240 








NOP 






1 103 


004260 


005737 


001420 






TST 


RXVTR 




1 1 04 


004264 


001753 








BEQ 


LINA 




1 105 


004266 


042777 


000100 


175120 




BIC 


*BIT6,@TXCSR 




1 106 


004274 


01 2737 


000340 


177776 




MOV 


#PRTY7,PSW 




1 107 


004302 


004537 


004474 






JSR 


S.OACNV 


-.TYPE LINE # 


1 108 


004306 


001614 








LINENO 






1 109 


004310 


01 6716 








SELINE 






1110 


004312 


000002 








2 






1111 


004314 


104000 








TYPE 






1 112 


004316 


01 6705 








ALINE 






1113 


004320 


000205 








RTS 


5 




1114 


















1 115 










;SUBROUTINE TO 


INITIALIZE BINARY COUNT PATTERNS 


1116 


004322 


01 2737 


177777 


004344 


INBIN: 


MOV 


#-1 ,RIND 


;SET ALL VARIABLES 


1117 


004330 


004537 


004562 






JSR 


%5,BM0VE 


;T0 MINUS 1. 


1 118 


004334 


004344 








RIND 






1119 


004336 


004345 








RIND+1 






1 120 


004340 


000013 








1 1 . 






1121 


004342 


000207 








RTS 


%7 


;EXIT 


1 122 


004344 


000000 






rind: 


OPEN 






1 123 


004346 


000000 






PTO: 


OPEN 






1 124 


004350 


000000 






PT1 : 


OPEN 






1 125 


004352 


000000 






PIND: 


OPEN 






1 126 


004354 


000000 






PTOP: 


OPEN 






1 127 


004356 


000000 






PTIP: 


OPEN 






1 128 


















1 129 










JSPECIAL BINARY 


COUNT PATTERN 


SUBROUTINE. EXITS WITH BIN CHAR 


1 130 


004360 


01 3737 


004346 


004350 


GTBIN: 


MOV 


PTO.PTI 


; PREVIOUS BIN CHAR TO PT1 


1 131 


004366 


005137 


004350 






COM 


PT1 




1 132 


004372 


005137 


004344 






COM 


RIND 




1 133 


004376 


001002 








BNE 


,+6 




1 134 


004400 


005237 


004350 






INC 


PT1 




1 135 


004404 


042737 


177400 


004350 




BIC 


#177400, PT1 


;MASK TO 8 BITS 


1 136 


004412 


01 3737 


004350 


004346 




MOV 


PT1 ,PTO 


;SAVE BIN CHAR IN PTO 


1 137 


004420 


01 3700 


004350 






MOV 


PT1 ,%0 


;BIN CHAR TO RO. 


1 138 


004424 


000207 








RTS 


%7 


;EXIT. 


1 139 


004426 


01 3737 


004354 


004356 


GTBINP: 


MOV 


PTOP, PTIP 


{PREVIOUS BIN CHAR TO PTIP 


1 140 


004434 


005137 


004356 






COM 


PTIP 




1141 


004440 


005137 


004352 






COM 


PIND 




1 142 


004444 


001002 








BNE 


.+6 




1 143 


004446 


005237 


004356 






INC 


PTIP 




1 144 


004452 


042737 


177400 


004356 




BIC 


#177400, PTIP 


jMASK TO 8 BITS. 
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SEQ 0023 



1 145 
1 146 
1 147 
1 148 
1 149 
1 150 
1 151 
1 152 
1 153 
1 154 
1 155 
1 156 
1 157 
1 158 
1 159 
1 160 
1 161 
1 162 
1 163 
1 164 
1 165 
1 166 
1 167 
1 168 
1 169 
1 170 
1 171 
1 172 
1 173 
1 174 
1 175 
1 176 
1 177 
1 178 
1 179 
1 180 



004460 


01 3737 


004356 


004354 


004466 


01 3701 


004356 




004472 


000207 






004474 


104013 






004476 


01 3537 


004560 




004502 


01 2501 






004504 


01 2502 






004506 


060201 






004510 


01 3703 


004560 




004514 


042703 


177770 




004520 


062703 


000060 




004524 


1 1 0341 






004526 


042737 


000007 


004560 


004534 


006037 


004560 




004540 


006037 


004560 




004544 


006037 


004560 




004550 


005302 






004552 


001356 






004554 


104014 






004556 


000205 






004560 


000000 






004562 


104013 






004564 


01 2501 






004566 


01 2502 






004570 


01 2503 






004572 


112122 






004574 


005303 






004576 


001375 






004600 


104014 






004602 


000205 







MOV 


PTIP, PTOP 


JSAVE BIN CHAR IN PTOP. 


MOV 


PT1P,%1 


;BIN CHAR TO R1 . 


RTS 


%7 


;EXIT. 


TO ASCII 


CONVERT ROUTINE 




SAVREG 






MOV 


@(5)+,0ACNVX 


;GET OCTAL VALUE. 


MOV 


{5)+,%1 


;GET DESTINATION ADDR. 


MOV 


(5)+,%2 


;GET CONVERT COUNT. 


ADD 


%2,%1 


; DEVELOP ADDR TO STORE 1ST 


: MOV 


0ACNVX,%3 




BIC 


#177770, %3 


; ISOLATE LEAST SIGNIFICANT 


ADD 


#60, %3 


;CONVERT DIGIT TO ASCII. 


MOVB 


%3,-(1 ) 


; STORE ASCII CHARACTER. 


BIC 


#7,0ACNVX 




ROR 


OACNVX 




ROR 


OACNVX 




ROR 


OACNVX 




DEC 


%2 


;DONE ALL DIGITS? 


BNE 


OACNVA 


; BRANCH IF NOT DONE. 


RSTREG 






RTS 


%5 


;DONE. EXIT. 


: OPEN 






JTINE TO 


MOVE A VARIABLE 


NUMBER OF BYTES. 


SAVREG 




;SAVE REGS. 


MOV 


(5)+,%1 


;GET"FROM"ADDRESS 


MOV 


(5)4-,%2 


;GET"TO"ADDRESS 


MOV 


(5)+,%3 


;GET COUNT 


MOVB 


(1 )+,(2)+ 


jMOVE BYTE 


DEC 


%3 


; DECREMENT COUNT 


BNE 


BMOVA 


; BRANCH IF NOT DONE. 


RSTREG 




; RESTORE REGS. 


RTS 


%5 


;DONE EXIT 



;BINARY TO DECIMAL ASCII CONVERT SUBROUTINE. 



1 181 


004604 


104013 




BDCNV: 


SAVREG 






1 182 


004606 


01 2700 


004762 




MOV 


#DECVAL,%0 


;SET UP ADDR TO STORE DECIMAL ASCII 


1 183 


004612 


01 3501 






MOV 


@{5)+,%1 


;BINARY VALUE TO R1 . 


1 184 


004614 


01 2537 


004672 




MOV 


(5)+, BDCNVC 


;GET DEST ADDR 


1 185 


004620 


01 2537 


004674 




MOV 


(5)+,BDCNVL 


;GET CHAR COUNT 


1 186 


004624 


01 2702 


004750 




MOV 


#ADTENP,%2 


;ADDR OF TEN POWER STRING TO R2. 


1187 


004630 


01 2737 


000005 


004742 


MOV 


#5,CNVCTR 


;SET UP FOR 5 POWER CONVERSIONS. 


1 188 


004636 


01 2237 


004746 


BDCNVA: 


MOV 


(2)+,TENPWR 


;MDVE POWER OF TEN VALUE TO TENPWR. 


1 189 


004642 


004737 


004702 




JSR 


%7, SUBTEN 


; PERFORM CONVERSION 


1 190 


004646 


005337 


004742 




DEC 


CNVCTR 


;DONE 5 CONVERSIONS? 


1 191 


004652 


001371 






BNE 


BDCNVA 


; BRANCH IF NOT YET 5. 


1 192 


004654 


163700 


004674 




SUB 


BDCNVD, %0 




1 193 


004660 


01 0037 


004670 




MOV 


%0, BDCNVB 




1 194 


004664 


004537 


004562 




JSR 


%5,BM0VE 




1 195 


004670 


000000 




BDCNVB: 









1 196 


004672 


000000 




BDCNVC: 









1 197 


004674 


000000 




BDCNVD: 









1 198 


004676 


104014 






RSTREG 






1 199 


004700 


000205 






RTS 


%5 


;YES, EXIT. 


1200 


004702 


005037 


004744 


subten: 


CLR 


DIGIT 


;CLEAR DIGIT 
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VVh / UD 




UUh / ID 






SUB 


TENPWR,%1 ; SUBTRACT TEN POWER FROM BINARY VALUE. 




0047 1 


1 03403 










SUBTNB 


BRANCH IF UNSUCCESSFUL SUBTRACTION. 


203 


A A y1 T 4 >1 


00 5237 


AAA '7 AA 






I NC 


DIGIT 






A A /I 7 O A 


000772 










SUBTNA 




1 OAK 


004722 


06370 1 


004746 






Ann 


TENPWR,%1 


RESTORE SUBTRACTED VALUE. 


1 OAR 


0047 26 


062737 


A AAACA 

OOOOoO 






ann 


#60, DIGIT 


CONVERT (DIGIT) TO ASCII 


^ «nl 


004734 


1 1 3720 


004744 






_ 

MDVB 


DIGIT, (0)+ ;MOVE ASCII CHAR TO DECVAL FIELD. 


1 208 


004740 


00 0207 










%7 


EXIT. 


1209 


004742 


000000 






CNVCT R * 


nppw 






1210 


004744 


000000 














1211 


004746 


000000 






T C K! D III D • 


nppN 






1212 


004750 


023420 






ADT ENP : 


1 nnnn 






1213 


004752 


00 1 750 








1 nnn 






1214 


004754 


000 1 44 








1 nn 
] ° ' 






1215 


004756 


0000 1 2 








1 . 






1216 


004760 


00000 1 














1217 


004762 


040 


2 ; 




• 

DtCV 




040 , 040 , 040 , 040 , 040 , 040 


1218 


004765 


040 


0-0 


AAA 










1219 


004770 


042777 


000002 




_____ . 
UATT5T . 


RT^ 


#BIT1 ,@RXCSR 


CLEAR DATA TERM. READY 


1 220 


004776 


052777 


000004 


AA ce^ 






/S'BIT2,@TXCSR 


SET MAINTENANCE BIT 


1221 


005004 


01 2737 


000 1 44 


001 564 




Mnw 


#100. ,CTRO 


GET CHARACTER COUNT 


1 222 


0050 1 2 


1 05777 


1 74376 




DATAA. 


TCTB 


©TXCSR 


WAIT FOR 


^ oo^ 


0050 1 6 










BPL 


.-4 


READY FLAG 


1 2z^ 


A A A OA 


004 / j7 








JSR 


7,GTBINP 


GET CHARACTER 


1 225 


005024 


1 1 01 37 


001 560 






MOVB 


%1 ,CRBUFA 


MOVE CHARACTER 


^ oof 


005030 












7,MASKIT 


MASK OF"^ NON TRANSMITTED BITS 


1 227 


005034 












%1 ,®TXBUF 


TRANSMIT CHARACTER 


1 228 


005040 


1 05777 


1 74344 






___ 


©RXCSR 


WAIT FOR 


1 229 


005044 


1 00375 








RPI 


.-4 


DONE FLAG 


1 230 


005046 


1 1 7737 


1 74340 


001556 




MOVB 


©RXBUF.CRBUF 


GET RECEIVED CHARACTER 


^ ooo 


005054 


1 04004 












CHK DATA 


1 0^^ 


005056 










DEC 


CTRO 


DECREMENT CHARACTER COUNT 


1 o^f 


A A C A C O 


00^353 










DATAA 






A AC: AKA 


00 5726 








TST 


(6) + 


POP STACK 


1 


A ACIACA 


104012 








SCOPE 
























1 0"57 


005070 


4 A A A A 

1 04000 






SETSR : 


TYPE 




TYPE SELECT OPTION MESSAGE. 


1 OTQ 

] OOQ 


005072 
















1 239 


005074 


000000 












COMMON HALT. 


\ o^? 


005076 


00 0207 








RTS 


%7 ;EXIT. 




A A C 4 A A 


1 A /t A A A 






INCRTN : 


TYPE 




TYPE INCORRECT ROUTINE SELECTED. 


1 o^o 
1 o^o 


0051 02 










A I NCRT 








A ACC 1 AA 
UUD 1 


A A A A A A 
UU UU UU 








HA LT 


; COMMON HALT. 


1 244 


005 1 06 


00 0207 










%7 ;EXIT. 


1 245 


0051 1 


1 04000 






INCRPG: 


TYPE 






1246 


0051 12 


01 6337 








AINCPG 






1247 


0051 14 


000000 








HALT 






1248 


0051 16 


000137 


002044 






JMP 


START 




1249 


005122 


005037 


001612 




PRGEND: 


CLR 


FOUNDV 




1250 


005126 


032777 


020000 


173040 




BIT 


#BIT13,#SRPTR ; INHIBIT PRINT SET? 


1251 


005134 


001026 








BNE 


PRGEXT 


BR IF SET 


1252 


005136 


004537 


004604 






JSR 


%5,BDCNV 




1253 


005142 


001636 








PASCNT 






1254 


005144 


016407 








APCNT 






1255 


005146 


000006 








6 






1256 


005150 


004537 


004474 






dSR 


%5,0ACNV ; CONVERT LINE NUMBER 
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1257 


005154 


001614 








LINENO 






1258 


005156 


01 6427 








ACLIN 






1259 


005160 


000002 








2 






1260 


005162 


004537 


004474 






JSR 


%5,0ACNV 


; CONVERT RXCSR 


1261 


005166 


00141 








RXCSR 






1262 


0051 70 


01 6443 








APRXC 






1263 


005172 


000006 








6 






1264 


0051 74 


004537 


004474 






JSR 


%5,0ACNV 


; CONVERT VECTOR 


1265 


005200 


001420 








RXVTR 






1266 


005202 


01 6464 








APVEC 






1267 


005204 


000004 








4 






1268 


005206 


104000 








TYPE 




;TYPE PROGRAM END. 


1269 


005210 


01 6372 








APGEND 






1270 


005212 


032777 


010000 


172754 


PRGEXT: 


BIT 


#BIT12,#SRPTR 


;L0CK on LINE 


1271 


005220 


001403 








BEO 


PRGXT1 


;BR IF NOT SET 


1272 


005222 


005237 


001636 






INC 


PASCNT 




1273 


005226 


000425 








BR 


PRGXTL 




1274 


005230 


01 3737 


001614 


001616 


PRGXT1 : 


MOV 


LINENO, TEMP 


;GET LINENO 


1275 


005236 


006337 


001616 






ASL 


TEMP 




1276 


005242 


062737 


000002 


001616 


PRGEC: 


ADD 


#2, TEMP 


;UPDATE LINE NUMBER 


1277 


005250 


01 3701 


001616 




PRGEA: 


MOV 


TEMP,%1 




1278 


005254 


01 6101 


001200 






MOV 


RXCR0(1 ) ,%1 


;GET RXCSR DEVICE ADDRESS 


1279 


005260 


022701 


177777 






CMP 


#177777,%! 


;LAST ONE 


1280 


005264 


001023 








BNE 


PRGEB 


;N0, CONTINUE 


1281 


C05266 


005237 


001636 






INC 


PASCNT 




1282 


005272 


005037 


001614 






CLR 


LINENO 




1283 


005276 


005037 


001616 






CLR 


TEMP 




1284 


005302 


01 3705 


000042 




PRGXTL: 


MOV 


@#42,%5 




1285 


005306 


001405 








BEO 


CONT 




1286 


005310 


000005 








RESET 






1287 


005312 


004715 






logic: 


JSR 


7,(5) 




1288 


005314 


000240 








NOP 






1289 


005316 


000240 








NOP 






1290 


005320 


000240 








NOP 






1291 


005322 


032777 


010000 


172644 


CONT: 


BIT 


#BIT12,®>SRPTR 


;L0CK on LINE 


1292 


005330 


001747 








BEO 


PRGEA 


; BRANCH IF NOT SET 


1293 


005332 


000207 








RTS 


7 




1294 


005334 


032701 


000001 




PRGEB: 


BIT 


#BIT0,%1 


; DEVICE THERE 


1295 


005340 


001340 








BNE 


PRGEC 


;N0 


1296 


005342 


006237 


001616 






ASR 


TEMP 




1297 


005346 


01 3737 


001616 


001614 




MOV 


TEMP, LINENO 




1298 


005354 


004737 


006072 






JSR 


%7,F0RMAD 




1299 


005360 


000207 








RTS 


%7 


;EXIT. 


1300 


















1301 










JCONDITIONAL ERROR HALT ROUTINE. 




1302 


005362 


005777 


172606 




EHLT: 


TST 


(PSRPTR 


; CHECK FOR HALT ON ERROR. 


1303 


005366 


100001 








BPL 


EHLTA 


; BRANCH IF NO HALT DESIRED. 


1304 


005370 


OOOOOO 








HALT 




;HALT. 


1305 


005372 


000002 






EHLTA: 


RTI 




;IN DATA LIGHTS. 


1306 


















1307 










•MASKIT 


- MASK 


DATA ACCORDING TO 


LINE NUMBER 


1308 


005374 


013737 


001402 


001404 


MASKIT: 


MOV 


UMASK.RMASK 


;GET MASK 


1309 


005402 


042737 


177000 


0014C4 




BIC 


#1 77000, RMASK 


; REMOVE C/D FLAG+PRIORITY 


1310 


005410 


005137 


001404 






COM 


RMASK 




1311 


005414 


043737 


001404 


001560 




BIC 


rmask.crbufa 


;MASK DESIRED BITS 


1312 


005422 


000207 








RTS 


7 
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SE9 003S 



1313 
1314 
1315 
1316 
1317 
1318 
1319 
1320 
1321 
1322 
1323 
1324 
1325 
1326 
1327 
1328 
1329 
1330 
1331 
1332 
1333 
1334 
1335 
1336 
1337 
1338 
1339 
1340 
1341 
1342 
1343 
1344 
1345 
1346 
1347 
1348 
1349 
1350 
1351 
1352 
1353 
1354 
1355 
1356 
1357 
1358 
1359 
1360 
1361 
1362 
1363 
1364 
1365 
1366 
1367 
1368 



005424 
005432 
005440 
005442 
005450 
005452 
005456 
005460 
005462 
005464 
005470 
005472 
005474 
005476 
005502 
005504 
005506 
005510 
005512 
005514 



017737 173762 
032737 170000 
001004 

023737 001556 
001421 

004537 004474 
001556 
016074 
000003 

004537 004474 
001560 
016063 
000003 

004537 004474 

001562 

016107 

000006 

104015 

016051 

000002 



;DATA CHECK ROUTINE, TEST ERROR 
001562 OTCHK: 
001562 



MOV 


#RXBUF, CRBUFB 


BIT 


^170000, CRBUFB 


BNE 


DTCHKX 


CMP 


CRBUF , CRBUFA 


BEO 


DTCHKA 


JSR 


%5 tOACNV 


CRBUF 




AWAS 




3 




USR 


%5,0ACNV 


CRBUFA 




AASB 




3 




USR 


%5,0ACNV 


CRBUFB 




ARXBUF 




6 




ERR0R1 




ERDAT 




RTI 





JITS 

DID ANY ERROR BITS SET 

;YES, TYPE ERROR 

; COMPARE EXPECTED AND RECEIVED 

■.CHARS. BRANCH IF SAME. 

;G0 TO OCTAL TO ASCII CONVERT. 

: SOURCE ADOR. 

•.DESTINATION ADDR. 

;#0F DIGITS TO CONVERT. 

;G0 TO OCTAL TO ASCII CONVERT. 

; SOURCE ADDR. 

{DESTINATION ADDR. 

;iyOF DIGITS TO CONVERT. 



; ERROR HANDLER 



005516 


012737 


177777 


005666 


err: 


MOV 


#-1 .ERRB 


;SET UP ONE MESSAGE CALL. 


005524 


012737 


000240 


005670 




MOV 


#240,ERRB-l-2 
ERRE 




005532 


005037 


005704 






CLR 




005536 


000413 








BR 


ERRA 




005540 


01 1637 


005666 




ERRi: 


MOV 


@%6.ERRB 


; DEVELOP ADDT'L MESSAGE ADOR. 


005544 


017737 


000116 


005666 




MOV 


@ERRB.ERRB 


; STORE AT ERRB. 


005552 


01 2737 


177777 


005670 




MOV 


#-1 ,ERRB+2 




005560 


012737 


000002 


005704 




MOV 


#2. ERRE 




005566 


032777 


020000 


172400 


ERRA: 


BIT 


*BIT13.@SRPTR 


; INHIBIT ERROR PRINT? 


005574 


001036 








BNE 


ERRC 


; BRANCH TO INHIBIT PRINT. 


005576 


01 1637 


005702 






MOV 


f)%6.ERRD 


; DEVELOP CALLING ADDR. 


005602 


162737 


000002 


005702 




SUB 


#2, ERRD 




005610 


01 3737 


001456 


001460 




MOV 


RTNNO, TNNO 




005616 


042737 


100000 


001460 




BIC 


#BIT15,TNN0 




005624 


004537 


004474 






JSR 


%5,0ACNV 


;G0 TO OCTAL TO ASCII CONVERT. 


005630 


005702 








ERRD 




; SOURCE ADDR. 


005632 


01 5240 








APC 




{DESTINATION ADDR. 


005634 


000006 








6 




•,#0F DIGITS TO CONVERT. 


005636 


004537 


004474 






USR 


%5,0ACNV 


;G0 TO OCTAL TO ASCII CONVERT. 


005642 


001410 








RXCSR 




{SOURCE ADDR. 


005644 


015257 








MRXNUM 




{DESTINATION ADDR. 


005646 


000006 








6 




{*0F DIGITS TO CONVERT. 


005650 


004537 


004474 






USR 


%5,0ACNV 


{GO TO OCTAL TO ASCII CONVERT. 


005654 


001456 








RTNNO 




{SOURCE ADDR. 


005656 


01 5230 








ATNUMB 




{DESTINATION ADDR. 


005660 


000003 








3 




{#0F DIGITS TO CONVERT. 


005662 


104001 








TYPES 




{TYPE: 


005664 


015226 








EMO 




{ERROR HEADER. 


005666 


000000 






ERRB: 


OPEN 




{ADDT'L ERROR MESSAGE IF ANY. 


005670 


177777 








-1 






005672 


104010 






ERRC: 


EHALT 




{GO ERR HALT IF DESIRED. 


005674 


063716 


005704 






ADO 


ERRE.@%6 
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1369 


005700 


000002 








RTI 


{EXIT. 


1370 


005702 


000000 






ERRD: 


OPEN 




1371 


005704 


000000 






ERRE: 


OPEN 




1372 
















1373 










{ERROR 


TRAP HANDLER - TYPE TO AND FROM WHERE ERROR TRAP OCCURRED 


1374 


005706 


01 3737 


177776 


001470 


ERTP: 


MOV 


PSW.OLDPS {SAVE OLD STATUS 


1375 


005714 


012737 


000340 


177776 




MOV 


#PRTY7,PSW 


1376 


005722 


006237 


001470 






ASR 


OLDPS 


1377 


005726 


006237 


001470 






ASR 


OLDPS 


1378 


005732 


006237 


001470 






ASR 


OLDPS 


1379 


005736 


042737 


177740 


001470 




BIC 


#177740, OLDPS 


1380 


005744 


01 3737 


001470 


001632 




MOV 


OLDPS. TOPC 


1381 


005752 


01 1637 


001634 






MOV 


©%6, FROMPC {GET FROM PC 


1382 


005756 


004537 


004474 




ERTPA: 


USR 


%5,0ACNV 


1383 


005762 


001632 








TOPC 




1384 


005764 


017145 








MTO 




1385 


005766 


000006 








6 




1386 


005770 


004537 


004474 






USR 


%5.0ACNV 


1387 


005774 


001634 








FROMPC 




1388 


005776 


017177 








MFROM 




1389 


006000 


000006 








6 




1390 


006002 


104000 








TYPE 




1391 


006004 


017100 








MTERR 




1392 


006006 


000000 








HALT 




1393 


006010 


000137 


002044 






UMP 


START 


1394 
















1395 










{MAPVEC 


- MAP VECTOR OR REPORT ERROR DEPENDING ON FMAP FLAG 


1396 


006014 


01 1637 


001632 




MAPVEC: 


MOV 


@%6,T0PC 


1397 


006020 


022626 








P0PSP2 




1398 


006022 


01 1637 


001634 






MOV 


@%6, FROMPC 


1399 


006026 


162737 


000004 


001632 




SUB 


#4. TOPC 


1400 


006034 


005737 


001472 






TST 


FMAP 


1401 


006040 


001746 








BEQ 


ERTPA {NOT MAPPING, REPORT ERROR 


1402 


006042 


013737 


001632 


001424 




MOV 


TOPC.TXVTR {STORE VECTOR 


1403 


006050 


162737 


000004 


001632 




SUB 


#4, TOPC 


1404 


006056 


013737 


001632 


001420 




MOV 


TOPC.RXVTR 


1405 


006064 


005037 


001472 






CLR 


FMAP 


1406 


006070 


000002 








RTI 




1407 
















1408 










{ FORMAD' 


-FORM DEVICE AT ADDRESSES 


1409 


006072 


010137 


001410 




FORMAD: 


MOV 


%1 , RXCSR 


1410 


006076 


062701 


000002 






ADD 


#2,%1 


141 1 


006102 


010137 


001412 






MOV 


XI .RXBUF 


1412 


006106 


062701 


000002 






ADD 


#2, XI 


1413 


0061 12 


010137 


001414 






MOV 


X1.TXCSR 


1414 


0061 16 


062701 


000002 






ADO 


#2. XI 


1415 


006122 


010137 


001416 






MOV 


XI .TXBUF 


1416 


006126 


013737 


001614 


001616 




MOV 


LINENO.TEMP {GET PRIORITY 


1417 


006134 


006337 


001616 






ASL 


TEMP 


1418 


006140 


062737 


001302 


001616 




ADD 


^CMASO.TEMP 


1419 


006146 


017737 


173444 


001620 




MOV 


©TEMP. TEMPI 


1420 


006154 


013737 


001620 


00140r 




MOV 


TEMPI .UMASK 


1421 


006162 


000337 


001620 






SWAB 


TEMPI 


1422 


006166 


006337 


001620 






ASL 


TEMPI 


1423 


006172 


042737 


177437 


001620 




BIC 


#177437, TEMPI 


1424 


006200 


013737 


001620 


001422 




MOV 


TEMPI .RXLVL 
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1425 


006206 


01 3737 


001620 


001426 




MQV 


TEMPI .TXLVL 




1426 


006214 


000207 








RTS 


%7 




1427 










; 








1428 










JDOTHIS 


- SELECTABLE TEST DECISION MAKER 


1429 
















;IS SELECT TEST SWITCH SET 


1430 


006216 


032777 


001000 


171750 


DOTHIS: 


BIT 


<S'BIT9,#SRPTR 


1431 


006224 


001002 








BNE 


GOBACK 


; RETURN TO TEST IF SW SET 


1432 


006226 


000137 


002410 






JMP 


GTRDYX 


;G0 TO NEXT TEST 


1433 


006232 


000207 






GQBACK: 


RTS 


%7 




1434 










; 








1435 


006234 


012737 


006244 


000024 


PFAIL: 


MOV 


<!(PWRUP,24 




1436 


006242 


000000 








HALT 






1437 


006244 


01 2737 


006234 


000024 


PWRUP: 


MOV 


#PFAIL,24 




1438 


006252 


000005 








RESET 






1439 


006254 


012706 


001176 






MOV 


*SPB0T,%6 




1440 


006260 


104000 








TYPE 






1441 


006262 


017374 








MPWRF 






1442 


006264 


104003 








ERROR 






1443 


006266 


000452 








BR 


RESTART 




1444 










5 








1445 










; DEC IDE 


IF VECTOR TO BE MAPPED 


AND MAP 


1446 


006270 


022737 


000000 


001612 


TSTVEC: 


CMP 


#0,FOUNDV 


;NEED VECTOR MAPPING 


1447 


006276 


001045 








BNE 


TSTVEX 


;N0, EXIT 


1448 


006300 


004737 


003516 






USR 


%7,0VRLAY 




1449 


006304 


005037 


001420 






CLR 


RXVTR 




1450 


006310 


005037 


177776 






CLR 


PSW 




1451 


006314 


052737 


000001 


001472 




BIS 


#BITO,FMAP 


;SET MAPPING FLAG 


1452 


006322 


042777 


000100 


173064 




BIC 


#BIT6,@TXCSR 


; CAUSE INTERRUPT 


1453 


006330 


052777 


000100 


173056 




BIS 


#BIT6,@TXCSR 




1454 


006336 


000240 








NOP 






1455 


006340 


000240 








NOP 






1456 


006342 


005737 


001420 






TST 


RXVTR 


;DID TRAP OCCUR? 


1457 


006346 


00101 1 








BNE 


TSTVA 


;YES, OK 


1458 


006350 


032777 


020000 


171616 




BIT 


#BIT13,©SRPTR 




1459 


006356 


001344 








BNE 


TSTVEC 




1460 


006360 


104000 








TYPE 




;N0, ERROR 


1461 


006362 


01 7256 








INTER 






1462 


006364 


104003 








ERROR 






1463 


006366 


000137 


006270 






JMP 


TSTVEC 




1464 


006372 


042777 


000100 


173014 


TSTVA: 


BIC 


#BIT6,®TXCSR 




1465 


006400 


012737 


000340 


177776 




MOV 


#PRTY7,PSW 


JRAISE PRIORITY. RETURN 


1466 


006406 


005237 


001612 






INC 


FOUNDV 




1467 


006412 


000207 






TSTVEX: 


RTS 


%7 




1 468 


















1469 










JRESTART ROUTINE 




1470 


006414 


013700 


001450 




RESTART :M0V 


PRGNUM,%0 




1471 


006420 


006300 








ASL 


%o 




1472 


006422 


000170 


006426 






JMP 


@RSTART(0) 


;G0 RESTART SELECTED PROGRAM 


1473 


















1474 


006426 


006500 






RSTART: 


PRGOA 




; PROGRAM RESTART ADDRESS 


1475 


006430 


014546 








PRG1A 




; PROGRAM 1 RESTART ADDRESS 


1476 


006432 


014620 








PRG2A 




; PROGRAM 2 RESTART ADDRESS 


1477 


006434 


014716 








PRG3A 




; PROGRAM 3 RESTART ADDRESS 


1478 


006436 


014746 








PRG4A 




; PROGRAM 4 RESTART ADDRESS 


1479 


006440 


005110 








INCRPG 






1480 


006442 


005110 








INCRPG 
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SEQ 0029 



1481 


006444 


005110 


1482 






1483 






1484 






1485 






1486 


006446 


012737 


1487 


006454 


005737 


1488 


006460 


001005 


1489 


006462 


104000 


1490 


006464 


015270 


1491 


006466 


000000 


1492 


006470 


004737 


1493 


006474 


004537 


1494 


006500 


000137 


1495 




177777 


1496 


006504 




1497 


006504 




1498 






1499 


006504 


100000 


1500 


006506 


006536 


1501 


006510 


001750 


1502 


006512 


006514 


1503 




000000 


1504 






1505 






1506 


006514 


012737 


1507 


006522 


005077 


1508 


006526 


104012 


1509 


006530 


022626 


1510 


006532 


104003 


1511 


006534 


000774 


1512 


006536 




1513 


006536 




1514 






1515 


006536 


100001 


1516 


006540 


006576 


1517 


006542 


001750 


1518 


006544 


006546 


1519 




000001- 


1520 






1521 






1522 


006546 


012737 


1523 


006554 


005737 


1524 


006560 


100402 


1525 


006562 


005777 


1526 


006566 


104012 


1527 


006570 


022626 


1528 


006572 


104003 


1529 


006574 


000774 


1530 


006576 




1531 


006576 




1532 






1533 


006576 


100002 


1534 


006600 


006630 


1535 


006602 


001750 


1536 


006604 


006606 



PRGO - INPUT-OUTPUT LOGIC TESTS 



006504 
000042 



005070 
004114 
002402 



001452 PRGO: 



PRGOB: 
PRGOA: 



MOV 

TST 

BNE 

TYPE 

POTIT 

HALT 

USR 

JSR 

JMP 

X=-1 

TSTA 

TSTAA 



#ATO,KSTART 

f>«42 

PRGOB 



7,SETSR 

S.LINSEL 

GETRDY 



; MONITOR LOAD 

;YES, START TEST 

;TYPE TITLE AND INSTRUCTIONS 



;G0 GET LINE # 
;GET STARTED. 



1000. .AA, CD 

AA.1000. ,\X+1+CD,\X+2,\X-i-1 

TEST NUMBER * 

ADDRESS OF NEXT TEST * 

ITERATION COUNT * 

SCOPE ENTRY POINT * 



ATO: 100000 
ATI 
1000. 
AAA 
X=X+1 

********************************* ********** 

JTEST ABILITY TO REFERENCE RECEIVER CSR WITHOUT TRAPPING 



006530 
1 72662 



000004 AAA: 



AAB: 
AAE: 



MOV 
CLR 
SCOPE 
P0PSP2 
ERROR 
BR 

TSTA 
TSTAA 



#AAE,MACHER ;SET UP MACHINE ERROR TRAP. 

StRXCSR ; REFERENCE RXCSR 

;0K IF NO TRAP. SCOPE 



If* 11**0* *************************** ****** 



; TRAPPED WHEN REFERENCING RXCSR 

AAB 

1000. .AB.CD 

AB.IOOO. ,\X+1+CD,\X+2,\X+1 
'#,***«********************************* 
ATI: 100001 ;TEST NUMBER 

AT2 ; ADDRESS OF NEXT TEST 

1000. ; ITERATION COUNT 

ABA ; SCOPE ENTRY POINT 

XsX+1 ; 
.0******************* ************************ ************************ 
;TEST ABILITY TO REFERENCE RECEIVER BUFFER WITHOUT TRAPPING 



006570 
002016 



000004 aba: 



abb: 
ABE: 



MOV 
TST 
BMI 
TST 
SCOPE 
P0PSP2 
ERROR 
BR 

TSTA 
TSTAA 



#ABE,MACHER 

9#X0RFLG 

ABB 

#RXBUF 



;SET UP MACHINE ERROR TRAP. 



; REFERENCE RXBUF 
;0K IF NJ TRAP SCOPE 



STRAPPED WHEN REFERENCING RXBUF 

ABB 

1000. ,AC,CD 

AC,1000.,\X+1+CD,\X+2,\X+1 
'******************************************************************************** 

AT2: 100002 ;TEST NUMBER « 

AT3 ; ADDRESS OF NEXT TEST • 

1000. {ITERATION COUNT * 

ACA ; SCOPE ENTRY POINT * 
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SEQ G030 



1537 




000002 


1538 






1539 






1540 


006606 


01 2737 


1541 


006614 


005777 


1542 


006620 


10401 2 


1543 


006622 


022626 


1544 


006624 


104003 


1545 


006626 


000774 


1546 


006630 




1547 


006630 




1548 






1549 


006630 


100003 


1550 


006632 


006662 


1551 


006634 


001750 


1552 


006636 


006640 


1553 




000003 


1554 






1555 






1556 


006640 


012737 


1557 


006646 


005777 


1558 


006652 


104012 


1559 


006654 


022626 


1560 


006656 


104003 


1561 


006660 


000774 


1562 


006662 




1563 


006662 




1564 






1565 


006562 


100004 


1566 


006664 


006762 


1567 


006666 


000012 


1568 


006670 


006672 


1569 




000004 


1570 






1571 






1572 






1573 


006672 


032777 


1574 


006700 


001402 


1575 


006702 


104003 


1576 


006704 


000421 


1577 


006706 


052777 


1578 


006714 


032777 


1579 


006722 


001002 


1580 


006724 


104003 


1581 


006726 


000410 


1582 


006730 


042777 


1583 


006736 


032777 


1584 


006744 


001401 


1585 


006746 


104003 


1586 


006750 


052777 


1587 


006756 


10401 1 


1588 


006760 


104012 


1589 


006762 




1590 


006762 




1591 






1592 


006762 


100005 



006622 
172574 



;TEST 
ACA: 



acb; 

ace: 



Xs=X+1 ; 
ABILITY TO REFERENCE TRANSMITTER CSR WITHOUT TRAPPING 



MOV 
TST 
SCOPE 
P0PSP2 
ERROR 
BR 

TSTA 
TSTAA 



#ACE,MACHER jSET UP MACHINE ERROR TRAP. 

©TXCSR ; REFERENCE TXCSR 

; SCOPE 



006654 000004 



; **** 
•.TEST 
ADA: 

ADB: 
ADE: 



AT4: 



; TRAPPED WHEN REFERENCING TXCSR 

ACB 

1000. ,AD,CD 

AD.IOOO. ,\X+1+CD,\X+2,\X+1 

,^^^^:^^,,t:,^-tl^4ilti))iil,^l^r^,^rtlti*it**i¥******'¥*********** ************ 

100003 ;TEST NUMBER 

AT4 JADDRESS OF NEXT TEST 

1000. ITERATION COUNT 

ADA ;SCOPE ENTRY POINT 

X=X+1 ; 
,,^0^t***************************************************** 
ABILITY TO REFERENCE TRANSMITTER BUFFER WITHOUT TRAPPING 

MOV #ADE,MACHER ;SET UP MACHINE ERROR TRAP. 

TST @TXBUF ; REFERENCE TX BUF. 

SCOPE ; SCOPE 

P0PSP2 

ERROR ; TRAPPED WHEN REFERENCING TXBUF 

BR ADB 

TSTA 10.,AE,CD 

TSTAA AE,10. ,\X+1+CD,\X+2,\X+1 

ii^^HHcilL*<ti***Hi*it:*,ii<f** ********************************* ****** 

TEST NUMBER 
ADDRESS OF NEXT TEST 
ITERATION COUNT 
SCOPE ENTRY POINT 



************ ,****** 



m0,i,*m^*^m********* 



000001 172514 



;TEST 

;AND 

AEA: 



100004 
ATS 
10. 
AEA 
X = X+1 
mut************** 
THAT TXCSR BIT 
THAT RESET CLEARS 



(BREAK) CAN BE SET AND CLEARED 
IT 



000001 
000001 



000001 
000001 



172500 
172472 



172456 
172450 



000001 172436 AED: 



BIT 


#BITO,@TXCSR 


;SEE IF BIT IS CLEAR 


BEQ 


AEB 


;BR IF CLEAR 


ERROR 




; RESET DID NOT CLEAR IT 


BR 


AED 




BIS 


#BITO,iiTXCSR 


;SET TXCSR BIT 


BIT 


#BITO,@TXCSR 


;DID IT SET 


BNE 


AEC 


;YES, GO ON 


ERROR 




;TXCSR BITO FAILED TO SET 


BR 


AED 




BIC 


#BITO,@TXCSR 


JCLEAR TXCSR BIT 


BIT 


#BITO, ©TXCSR 


•,DID IT CLEAR 


BEO 


AED 




ERROR 




; TXCSR BIT DID NOT CLEAR 


BIS 


#BITO,@TXCSR 




SRESET 




; ISSUE RESET TO CLEAR 


SCOPE 






TSTA 


10. , AG, CD 




TSTAA 


AG, 10. ,\X+1+CD 


\X+2,\X+1 


************************************************** 


100005 




;TEST NUMBER 



««««««« 4> 41 



.MAIN. MACY11 30A{1052) 30-MAR-78 08:52 PAGE 31 SEQ 0031 

C2DLAG.P11 30-MAR-78 08:51 



1593 


006764 


007062 








AT6 






; ADDRESS OF NEXT TEST * 


1594 


006766 


000012 








10. 






; ITERATION COUNT * 


1595 


006770 


006772 








AGA 






; SCOPE ENTRY POINT * 


1596 




000005 








X = X+1 






; * 


1597 
















************************************************* 


1598 










JTEST 


THAT TXCSR BIT2 CAN BE 


SET 


, CLEARED, AND THAT RESET CLEARS XT. 


1599 


006772 


032777 


000004 


172414 


AGA: 


BIT 


#BIT2, ©TXCSR 




;SEE IF TXCSR BIT2 IS CLEAR. 


1600 


007000 


001402 








BEO 


AGB 




;BRANCH IF BIT IS CLEAR. 


1601 


007002 


104003 








ERROR 






; RESET DID NOT CLEAR TXCSR BIT2 


1602 


007004 


000421 








BR 


AGD 






1603 


007006 


052777 


000004 


172400 


AGB: 


BIS 


#BIT2,@TXCSR 




;SET TXCSR BIT2. 


1604 


007014 


032777 


000004 


172372 




BIT 


(S'BIT2, ©TXCSR 




;SEE IF BIT IS SET. 


1605 


007022 


001002 








BNE 


AGC 




;BRANCH IF BIT IS SET. 


1606 


007024 


104003 








ERROR 






;TXCSR BIT2 FAILED TO SET. 


1607 


007026 


000410 








BR 


AGD 






1608 


007030 


042777 


000004 


172356 


AGC: 


BIC 


#BIT2, ©TXCSR 




JCLEAR TXCSR BIT2 


1609 


007036 


032777 


000004 


172350 




BIT 


#BIT2, ©TXCSR 




;SEE IF BIT IS CLEAR. 


1610 


007044 


001401 








BEO 


AGD 






161 1 


007046 


104003 








ERROR 






JTXCSR BIT2 FAILED TO CLEAR. 


1612 


007050 


052777 


000004 


172336 


AGD: 


BIS 


#BIT2, ©TXCSR 




;SET TXCSR BIT2. 


1613 


007056 


10401 1 








SRESET 






; ISSUE RESET TO CLEAR BIT. 


1614 


007060 


104012 








SCOPE 






; SCOPE 


1615 


007062 










TSTA 


10. , AJ.CD 






1616 


007062 










TSTAA 


AJ.IO. ,\X+1+CD.\X+2,\X+1 


1617 
1618 


007062 


100006 






AT6: 


********** 

100006 


************** 


*** 


************************************************* 

;TEST NUMBER * 


1619 


007064 


0071 70 








AT7 






; ADDRESS OF NEXT TEST * 


1620 


007066 


000012 








10. 






; ITERATION COUNT * 


1621 


007070 


007072 








AJA 






; SCOPE ENTRY POINT * 


1622 




000006 








X = X+1 






; * 


1623 










• ^ItHit*********** 


************** 


*** 


****************************************;********* 


1624 










JTEST 


THAT TXCSR BIT6 CAN BE 


SET 


, CLEARED, AND THAT RESET CLEARS 11. 


1625 


007072 


01 2737 


000340 


177776 


AJA: 


MOV 


#PRTY7,PSW 




;SET PRIORITY 7. 


1626 


007100 


032777 


000100 


172306 




BIT 


#BIT6, ©TXCSR 




;SEE IF TXCSR BIT6 IS CLEAR. 


1627 


007106 


001402 








BEO 


AJB 




;BRANCH IF BIT IS CLEAR. 


1628 


0071 10 


104003 








ERROR 






; RESET DID NOT CLEAR TXCSR BITS 


1629 


0071 12 


000421 








BR 


AJD 






1630 


0071 14 


052777 


000100 


172272 


AJB: 


BIS 


#BIT6, ©TXCSR 




;SET TXCSR BIT6. 


1631 


007122 


032777 


000100 


172264 




BIT 


iS'BIT6, ©TXCSR 




;SEE IF BIT IS SET. 


1632 


007130 


001002 








BNE 


AJC 




;BRANCH IF BIT IS SET. 


1633 


007132 


104003 








ERROR 






;TXCSR BIT6 FAILED TO SET. 


1634 


007134 


000410 








BR 


AJD 






1635 


007136 


042777 


000100 


172250 


AJC: 


BIC 


#BIT6, ©TXCSR 




;CLEAR TXCSR BIT6 


1636 


007144 


032777 


000100 


172242 




BIT 


#BIT6. ©TXCSR 




;SEE IF BIT IS CLEAR. 


1637 


007152 


001401 








BEO 


AJD 






1638 


0071 54 


104003 








ERROR 






;TXCSR BIT6 FAILED TO CLEAR. 


1639 


007156 


052777 


000100 


172230 


AUD: 


BIS 


#BIT6, ©TXCSR 




;SET TXCSR BIT6. 


1640 


007164 


10401 1 








SRESET 






; ISSUE RESET TO CLEAR BIT. 


1641 


007166 


104012 








SCOPE 






; SCOPE 


1642 


007170 










TSTA 


100. .AK.CD 






1643 


007170 










TSTAA 


AK.IOO. ,\X+1+CD,\X-l-2,\X+1 


1644 










'^,,^**tini ft *************************************************** ********************** 


1645 


007170 


100007 






AT7: 


100007 






JTEST NUMBER * 


1646 


007172 


007214 








AT 10 






; ADDRESS OF NEXT TEST * 


1647 


007174 


000144 








100. 






; ITERATION COUNT « 


1648 


007176 


007200 








AKA 






; SCOPE ENTRY POINT * 
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SEQ 0033 



1649 




000007 








X=X+1 








1 650 










; * * ♦ * 






1651 










;TEST 


THAT TXCSR BIT 7 (READY 


BIT) IS SET UPON ENTERING ROUTINE AND 




1652 










;THAT 


IT CAN BE 


READ RELIABLY. 






1653 


007200 


105777 


172210 




AKA: 


TSTB 


@TXCSR 


;SEE IF TXCSR BIT 7 IS SET. 




1 654 


007204 


100402 








BMI 


AKB 


•.BRANCH IF SET. 




1655 


007206 


104003 








ERROR 




;TXCSR BIT 7 NOT SET. 




1656 


007210 


10401 1 








SRESET 




; ISSUE RESET TO CLEAR BIT IF ERROR 




1657 


007212 


104012 






AKB: 


SCOPE 




; SCOPE 




1658 


007214 










TSTA 


100. , AL.O 






1659 


007214 










TSTAA 


AL.IOO. ,\X+1+0,\X+2,\X+1 




1660 














*******>*'* ******m*** ******* 




1661 


007214 


00001 






Alio: 


10 




;TEST NUMBER 


* 


1662 


007216 


007276 








ATI 1 




; ADDRESS OF NEXT TEST 




1663 


007220 


000144 








100. 




ITERATION COUNT 


* 


1664 


007222 


007224 








ALA 




JSCOPE ENTRY POINT 


* 


1665 




000010 








X = X+1 






* 


1666 












lt******4i**iH**** 


*■ ******^****** ******** f)t*«i),*iif4,^^^#,iii*!it,,ti#**#tif^^«tt¥**m* 


1667 










;TEST 


THAT RXCSR BIT 1 CAN BE 


SET + CLEARED 




1668 


007224 


042777 


000002 


172156 


ALA: 


BIC 


#BIT1 ,@RXCSR 






1669 


007232 


052777 


000002 


172150 




BIS 


#BIT1 ,@RXCSR 


;SET RXCSR BITl 




1670 


007240 


032777 


000002 


172142 




BIT 


#BIT1 ,@k'XCSR 


;SEE IF BIT IS SET 




1671 


007246 


001002 








BNE 


ALY 


; BRANCH IF SET 




1672 


007250 


104003 








ERROR 




;RXCSR BIT 1 FAILED TO SET 




1673 


007252 


000410 








BR 


ALZ 






1674 


007254 


042777 


000002 


172126 


ALY: 


BIC 


#BIT1 .(PRXCSR 


jCLEAR RXCSR BIT 1 




1675 


007262 


032777 


000002 


172120 




BIT 


#BIT1 .@RXCSR 


;SEE IF BIT IS CLEAR 




1676 


007270 


001401 








BEO 


ALZ 






1677 


007272 


104003 








ERROR 




; RXCSR BIT 1 FAILED TO CLEAR 




1678 


007274 


104012 






ALZ: 


SCOPE 




; SCOPE 




1679 


007276 










TSTA 


10. ,AP,0 






1680 


007276 










TSTAA 


AP.IO. ,\X+1+0,\X+2,\X+1 




1681 










•rt:************** 




*^,,ti****^,*:-****^,lti****i,t**********0**i^** ****** ******** 


1682 


007276 


00001 1 






AT1 1 : 


1 1 




;TEST NUMBER 


* 


1683 


007300 


007376 








AT12 




;ADDRESS OF NEXT TEST 


* 


1684 


007302 


000012 








10. 




ITERATION COUNT 


* 


1685 


007304 


007306 








APA 




;SCOPE ENTRY POINT 


« 


1686 




00001 1 








X = X+1 






* 


1687 










; **•* 










1688 










;TEST 


THAT RXCSR BIT2 IS CLEAR 


AND CAN BE READ RELIABLY. 




1689 


007306 


032777 


000004 


172074 


APA: 


BIT 


#BIT2,PRXCL.< 


;SEE IF RXCSR BIT2 IS CLEAR. 




1690 


007314 


001402 








BEO 


APB 


•.BRANCH IF BIT IS CLEAR. 




1691 


007316 


104003 








ERROR 




;RXCSR BIT2 IS NOT CLEAR. 




1692 


007320 


000421 








BR 


APD 






1 693 


007322 


052777 


000004 


1 72060 


APB: 


BIS 


#BIT2,@RXCSR 


;SET RXCSR BIT2 




1694 


007330 


032777 


000004 


172052 




BIT 


#BIT2,@RXCSR 


;SEE IF :.IT IS SET 




1695 


007336 


001002 








BNE 


APCX 


; BRANCH IF SET 




1696 


007340 


104003 








ERROR 




;RXCSR BIT2 FAILED TO SET 




1697 


007342 


000410 








BR 


APD 






1698 


007344 


042777 


000004 


172036 


APCX: 


BIC 


#BIT2,@RXCSR 


;CLEAR RXeSR BIT2 




1699 


007352 


032777 


000004 


172030 




BIT 


#BIT2,@RXCSR 


;SEE IF BIT IS CLEAR 




1700 


007360 


001401 








BEO 


APD 






1701 


007362 


104003 








ERROR 




; RXCSR BIT2 FAILED TO CLEAR 




1702 


007364 


052777 


000004 


172016 


APD: 


BIS 


#BIT2, ©RXCSR 


;SET BIT 




1703 


007372 


104011 








SRESET 




; ISSUE RESET TO CLEAR BIT 




1704 


007374 


104012 








SCOPE 
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TSTA 
TSTAA 

12 

AT13 
10. 
AOA 
X=X+1 



SEQ 0033 



CZDLAG. 


P11 30-MAR-78 


08:51 




1705 


007376 








1706 


007376 








1707 










1708 


007376 


000012 






1709 


007400 


007476 






1710 


007402 


000012 






171 1 


007404 


007406 






1712 




000012 






1713 










1714 










1715 


007406 


032777 


000010 


171774 


1716 


007414 


001402 






1717 


007416 


104003 






1718 


007420 


000421 






1719 


007422 


052777 


000010 


171760 


1720 


007430 


032777 


000010 


171752 


1721 


007436 


001002 






1722 


007440 


104003 






1723 


007442 


000410 






1724 


007444 


042777 


000010 


171736 


1725 


007452 


032777 


000010 


171730 


1726 


007460 


001401 






1727 


007462 


104003 






1728 


007464 


052777 


000010 


171716 


1729 


007472 


10401 1 






1730 


007474 


104012 






1731 


007476 








1732 


007476 








1733 










1734 


007476 


000013 






1735 


007500 


007604 






1736 


007502 


000012 






1737 


007504 


007506 






1738 




000013 






1739 










1740 










1741 


007506 


01 2737 


000340 


177776 


1742 


007514 


032777 


000040 


171666 


1743 


007522 


001402 






1744 


007524 


104003 






1745 


007526 


000421 






1746 


007530 


052777 


000040 


171652 


1747 


007536 


032777 


000040 


171644 


1748 


007544 


001002 






1749 


007546 


104003 






1750 


007550 


000410 






1751 


007552 


042777 


000040 


171630 


1752 


007560 


032777 


000040 


171622 


1753 


007566 


001401 






1754 


007570 


104003 






1755 


007572 


052777 


000040 


171610 


1756 


007600 


10401 1 






1757 


007602 


104012 






1758 


007604 








1759 


007604 








1760 











10. ,A0,0 

AO, 10. ,\X+1+0,\X+2,\X+1 



>K »: >tc* « * * 



;TEST NUMBER 
; ADDRESS OF NEXT TEST 
; ITERATION COUNT 
;SCOPE ENTRY POINT 



;TEST THAT RXCSR BIT3 CAN BE SET, CLEARED, AND THAT RESET CLEARS IT. 



#BIT3,@RXCSR 
AQB 

AOD 

#BIT3,@RXCSR 
#BIT3,@RXCSR 
AQC 

AQD 

#BIT3,@RXCSR 
#BIT3,@RXCr" 
AQD 

#BIT3,@RXCSR 



AOA: BIT 

BEO 
ERROR 
BR 

aqb: bis 

BIT 
BNE 
ERROR 
BR 

AOC: BIC 

BIT 

BEO 

ERROR 
AQD: bis 

SRESET 

SCOPE 

TSTA 

TSTAA 

^:^Hl****Hl*** 

AT13: 13 

AT 14 
10. 
ARA 
X = X+1 

;TEST THAT RXCSR BITS CAN BE SET 



10. ,AR,0 

AR.IO. ,\X+1+0,\X+2,\X+1 



;SEE IF RXCSR BIT3 IS CLEAR. 
•.BRANCH IF BIT IS CLEAR. 
; RESET DID NOT CLEAR RXCSR BITS 

;SET RXCSR BIT3. 
;SEE IF BIT IS SET. 
;BRANCH IF BIT IS SET. 
jRXCSR BIT3 FAILED TO SET. 

;CLEAR RXCSR BIT3 
;SEE IF BIT IS CLEAR. 

;RXCSR BIT3 FAILED TO CLEAR. 
;SET RXCSR BIT3. 
•.ISSUE RESET TO CLEAR BIT. 
; SCOPE 



ARA: 



MOV 
BIT 
BEQ 
ERROR 
BR 
BIS 
BIT 
BNE 
ERROR 
BR 
BIC 
BIT 
BEQ 
ERROR 
BIS 

SRESET 
SCOPE 
TSTA 
TSTAA 



#PRTY7, PSW 
#BIT5, ©RXCSR 
ARB 

ARD 

#BIT5,@RXCSR 
#BIT5,@RXCSR 
ARC 

ARD 

#BIT5,@RXCSR 
#BIT5,@RXCSR 
ARD 

#BIT5,i>RXCSR 



-.TEST NUMBER 
; ADDRESS OF NEXT TEST 
ITERATION COUNT 
; SCOPE ENTRY POINT 

t:^l^^^^^,* 

, CLEARED, AND THAT RESET CLEARS IT. 

;PRTY7 TO INHIBIT ANY INT 

;SEE IF RXCSR BITS IS CLEAR. 

jBRANCH IF BIT IS CLEAR. 

; RESET DID NOT CLEAR RXCSR BITS 

SET RXCSR BITS. 
SEE IF BIT IS SET. 
BRANCH IF BIT IS SET. 
RXCSR BITS FAILED TO SET. 

;CLEAR RXCSR BITS 
•.SEE IF BIT IS CLEAR. 

;RXCSR BIT4 FAILED TO CLEAR. 
;SET RXCSR BIT5. 
; ISSUE RESET TO CLEAR BIT. 
; SCOPE 



10. , AS, CD 

AS, 10. ,\X+1+CD,\X+2,\X+1 
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SEO 0034 



1761 


007604 


100014 


1762 


007606 


007712 


1763 


007610 


000012 


1764 


007612 


007614 


1765 




000014 


1766 






1767 






1768 


007614 


01 2737 


1769 


007622 


032777 


1770 


007630 


001402 


1771 


007632 


104003 


1772 


007634 


000421 


1773 


007636 


052777 


1774 


007644 


032777 


1775 


007652 


001002 


1776 


007654 


104003 


1777 


007656 


000410 


1778 


007660 


042777 


1779 


007666 


032777 


1780 


007674 


001401 


1781 


007676 


104003 


1782 


007700 


052777 


1783 


007706 


10401 1 


1784 


007710 


104012 


1785 


007712 




1786 


007712 




1787 






1788 


007712 


000015 


1789 


007714 


007740 


1790 


007716 


000144 


1791 


007720 


007722 


1792 




000015 


1793 






1794 






1795 


007722 


032777 


1796 


007730 


001402 


1797 


007732 


104003 


1798 


007734 


10401 1 


1799 


007736 


104012 


1800 


007740 




1801 


007740 




1802 






1803 


007740 


000016 


1804 


007742 


007766 


1805 


007744 


000144 


1806 


007746 


007750 


1807 




000016 


1808 






1809 






1810 


007750 


032777 


1811 


007756 


001402 


1812 


007760 


104003 


1813 


007762 


10401 1 


1814 


007764 


104012 


1815 


007766 




1816 


007766 





4: 100014 
AT 15 
10. 
ASA 
X=X+1 

************ 



;TEST NUMBER 

; ADDRESS OF NEXT TEST 

; ITERATION COUNT 

; SCOPE ENTRY POINT 



000340 
000100 



000100 
000100 



000100 
000100 



;TEST that RXCSR BIT6 CAN BE SET, CLEARED, AND THAT RESET CLEARS IT. 
177776 ASA: MOV #PRTY7,PSW ;SET PRIORITY 7. 

^71560 BIT #BIT6. ©RXCSR ;SEE IF RXCSR BIT6 IS CLEAR. 

; BRANCH IF BIT IS CLEAR. 
; RESET DID NOT CLEAR RXCSR BIT6 

DIt «3U 

171544 ASB: bis *BIT6,@RXCSR ;SET RXCSR BIT6. 

171536 BIT #BIT6. ©RXCSR ;SEE IF BIT IS SET. 

JBRANCH IF BIT IS SET. 
;RXCSR BIT6 FAILED TO SET. 

OH nt>u 

171522 ASC: BIC #BIT6, ©RXCSR jCLEAR RXCSR BIT6 

171514 BIT #BIT6, ©RXCSR ;SEE IF BIT IS CLEAR. 

JRXCSR BIT6 FAILED TO CLEAR. 
;SET RXCSR BIT6. 
; ISSUE RESET TO CLEAR BIT. 
; SCOPE 



000100 171502 ASD: 



MOV 


#PRTY7 , PSW 


BIT 


#BIT6,€»RXCSR 


BEQ 


ASB 


ERROR 




BR 


ASD 


BIS 


*BIT6,@RXCSR 


BIT 


#BIT6, ©RXCSR 


BNE 


ASC 


ERROR 




BR 


ASD 


BIC 


#BIT6, ©RXCSR 


BIT 


#BIT6, ©RXCSR 


BEQ 


ASD 


ERROR 




BIS 


#BIT6, ©RXCSR 


SRESET 




SCOPE 




TSTA 


100.,AT,0 


TSTAA 


AT,100. ,\X+1+ 


***********if********* 


15 




AT16 




100. 




ATA 




X=X+1 





***********4, 

;TEST NUMBER 
; ADDRESS OF NEXT TEST 
ITERATION COUNT 
; SCOPE ENTRY POINT 



***********************^*^**0,l,*00tt;4,0 



*******^ 



'*********#****^^ 



171460 ATA: 



****** ****************************^00#^#ti,^,^^^^^tf,^^^^^^^ 
TEST THAT RXCSR BIT7 IS CLEAR AND CAN BE READ RELIABLY. 



#BIT7, ©RXCSR 
ATB 



002000 171432 AXA 



BIT 
BEQ 
ERROR 
SRESET 
ATB: SCOPE 
TSTA 
TSTAA 

l*******************^^ 
AT16: 16 

AT17 

100. 

AXA 

X=X+1 

4, 

•TEST THAT RXCSR BITIO IS CLEAR AND CAN BE READ RELIABLY. 



;SEE IF RXCSR BIT7 IS CLEAR. 
; BRANCH IF BIT IS CLEAR. 
; RXCSR BIT7 IS NOT CLEAR. 
JRESET IF ERROR 
; SCOPE 

100. ,AX,0 

AX, 100. .\X+1+0,\X+2,\X+1 

******************* ««**«#U!**«4,*«#*»,4,#4i**,>^<,i><,^,^^ 

;TEST NUMBER « 

;ADDRESS OF NEXT TEST « 

ITERATION COUNT « 

; SCOPE ENTRY POINT « 



BIT #BIT10, ©RXCSR ;SEE IF RXCSR BITIO IS CLEAR. 

BEO AXB {BRANCH IF BIT IS CLEAR. 

ERROR ; RXCSR BITIO IS NOT CLEAR. 

SRESET ; RESET BIT IF ERROR 

SCOPE ; SCOPE 

TSTA 100., AY, CD 

TSTAA AY.IOO. ,\X+1+CD,\X+2,\X+1 
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SEO 0035 



1817 






1818 


007766 


100017 


1819 


007770 


01 0014 


1820 


007772 


000144 


1821 


007774 


007776 


1822 




000017 


1823 






1824 






1825 


007776 


032777 


1826 


010004 


001402 


1827 


010006 


104003 


1828 


010010 


10401 1 


1829 


010012 


104012 


1830 


010014 




1831 


010014 




1832 






1833 


010014 


100020 


1834 


010016 


010042 


1835 


010020 


000144 


1836 


010022 


010024 


1837 




000020 


1838 






1839 






1840 


010024 


032777 


1841 


010032 


001402 


1842 


010034 


104003 


1843 


010036 


10401 1 


1844 


010040 


104012 


1845 


010042 




1846 


010042 




1847 






1848 


010042 


100021 


1849 


010044 


01 0070 


1850 


010046 


000144 


1851 


010050 


010052 


1852 




000021 


1853 






1854 






1855 


010052 


032777 


1856 


010060 


001402 


1857 


010062 


104003 


1858 


010064 


104011 


1859 


010066 


104012 


1860 






1861 






1862 






1863 






1864 






1865 






1866 


010070 




1867 


010070 




1868 






1869 


010070 


000022 


1870 


010072 


01 0154 


1871 


010074 


000144 


1872 


010076 


010100 



004000 171404 AYA 



;******* **************** 

AT17: 100017 
AT20 
100. 
AYA 

XxX+1 ; « 

******************************************** ********************0*****^00**i)i,***,^ 

JTEST THAT RXCSR BIT1 1 IS CLEAR AND CAN BE READ RELIABLY. 



****** ***********************************,t*^000***0*** 

;TEST NUMBER « 
; ADDRESS OF NEXT TEST * 
•.ITERATION COUNT * 
JSCOPE ENTRY POINT * 



040000 171356 AZA: 



BIT #BIT11 , ©RXCSR ;SEE IF RXCSR BIT11 IS CLEAR. 

BEO AYB ; BRANCH IF BIT IS CLEAR. 

ERROR ; RXCSR BIT11 IS NOT CLEAR. 

SRESET JRESET BIT IF ERROR 

AYB: SCOPE ; SCOPE 

TSTA 100.,AZ,CD 
TSTAA AZ.IOO. ,\X+1+CD,\X+2,\X+1 
;**************************************** ************************^f*****0^0**ii,*i*** 
AT20: 100020 ;TEST NUMBER * 

AT21 jADDRESS OF NEXT TEST « 

100. ; ITERATION COUNT * 

AZA ; SCOPE ENTRY POINT * 

X=X+1 ; « 

'******************** **<f* ************************** *********^Hf*,m'*'*#*^*m«*«##^*<»*# 
TEST THAT RXCSR BIT14 IS CLEAR AND CAN BE READ RELIABLY. 



100000 171330 AAAA: 



AAAB: 



BIT #BIT14, ©RXCSR ;SEE IF RXCSR BIT14 IS CLEAR. 

BEQ AZB ; BRANCH IF BIT IS CLEAR. 

ERROR ; RXCSR BIT14 IS NOT CLEAR. 

SRESET ; RESET BIT IF ERROR 

AZB: SCOPE ; SCOPE 

TSTA 100., AAA, CD 

TSTAA AAA.IOO. ,\X+1+CD,\X+2.\X-f1 

1****************************************************************0*****^00***1**** 

AT21: 100021 JTEST NUMBER * 

AT22 ; ADDRESS OF NEXT TEST ♦ 

100. ; ITERATION COUNT « 

AAAA ; SCOPE ENTRY POINT « 

X=X+1 ; « 

********************************************************************************* 

TEST THAT RXCSR BIT15 IS CLEAR AND CAN BE READ RELIABLY. 



BIT #BIT15, ©RXCSR ;SEE IF RXCSR BIT15 IS CLEAR. 

BEQ AAAB ; BRANCH IF BIT IS CLEAR. 

ERROR jRXCSR BIT15 IS NOT CLEAR. 

SRESET ;RESET BIT IF ERROR 

SCOPE ; SCOPE 



ALL PREVIOUS TESTS MUST HAVE BEEN RUN SUCCESSFULLY PRIOR ■ 

TO RUNNING THE FOLLOWING TESTS. ALSO, VHE JUMPER CONNECTOR 

MUST BE INSERTED IN THE DL11-E CABLE IN PLACE OF THE MODEM. COMMENTS 

REFER TO OPERATION WITH JUMPER INSERTED. 

TSTA 100.,AFB,0 

TSTAA AFB.IOO. ,\X+1+0,\X+2,\X+1 
• ******************************* ************************************0*m000***0*** 

AT22: 22 ;TEST NUMBER » 

AT23 ; ADDRESS OF NEXT TEST * 

100. ; ITERATION COUNT * 

AFBA ; SCOPE ENTRY POINT • 
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SEQ 003@ 



1873 




000022 






1 874 










1 875 










1 876 










1 877 


01 01 00 


052777 


AA A AAO 


171302 


1 878 


0101 06 


004737 






1 879 


010112 


032777 


01 0000 


1 71 270 


1 880 
1 881 


01 01 20 
01 01 22 


00 1 002 
1 04003 






1 882 


01 01 24 


00041 2 






1 883 


01 01 26 


042777 


000002 


171254 


1 884 


01 01 34 


004737 


Oil 762 




1 885 


01 01 40 


032777 


01 0000 




1 886 


0101 46 


00 1 401 






1 887 


01 01 50 


1 04003 






1 888 


01 01 52 


1 0401 2 






1 889 


01 01 54 








1 890 


01 01 54 








1 891 










1 892 


01 01 54 


000023 






1 893 


0101 56 


01 0326 






1 894 


0101 60 


0001 44 






1 895 


0101 62 


0101 64 






1 896 




nn AAiQ 






1 897 










1 898 










1 899 










1 900 


0101 64 




AAA AAO 


171516 


1 901 


0101 72 


004737 






1 902 


0101 76 


1 7737 


?71 206 


nn 1 ana 

WW 1 QwO 


1 903 


1 0204 


032777 


1 UwUUU 


1711 76 


1 on^ 




AA 1 >1 AO 
UU 1 mU^ 






905 


ni noi4 


1 A/lAA'3 








01 0216 










1 0220 


052777 


AAnnno 

Uw w W 


1711 62 


1 908 






















1 0226 




011 762 




1 oi 1 
! 1 


01 02 2 


ni 77-57 




00 1 606 


1912 


1 0240 


032737 


1 UwUUU 


001 606 


1913 


1 0246 


00 1 002 






1914 


U 1 02bO 


1 A /I A A "3 






1915 




A A A^ Oil 








010254 


032777 


1 00000 


1 71 1 26 


1917 










1918 


010262 


001402 






1919 


010264 


104003 






1920 


010266 


000416 






1921 


010270 


042777 


000002 


171112 


1922 










1923 










1924 


010276 


004737 


01 1762 




1925 


010302 


017737 


171102 


001606 


1926 


010310 


032737 


100000 


001606 


1927 


010316 


001002 






1928 


010320 


104003 







Xsx+1 ; * 

' it:********************** *************** *****************'^^**'^'^*<^ 

■TEST THAT CARRIER DETECT SETS AND CLEARS WHEN DATA TERMINAL 
jREAOY SETS AND CLEARS. 
AFBA: 



BIS 


#BIT1 ,®RXCSR 


;SET DATA TERMINAL READY 


USR 


%7 , TIME 


; DELAY 


BIT 


#BIT1 2 ,®RXCSR 


;TEST CARRIER DETECT 


BNE 


AFBB 


; SHOULD BE SET 


ERROR 




•.WASN'T 


BR 


AFBC 




BIC 


#BIT1 ,@RXCSR 


; CLEAR DATA TERMINAL READY 


JSR 


%7,TIME 


; DELAY 


BIT 


#BIT12,@RXCSR 


;TEST CARRIER DETECT 


BEO 


AFBC 




ERROR 




;WAS SET, ERROR 


SCOPE 






TSTA 


100. .AGB.O 




TSTAA 


AGB.IOO. ,\X+1+0 


,\X+2,\X+1 


4> 4> « * « * 


*7^4L4i0^,*ltt******** 


i>,**^,**0^***0***^,*****ti0iit*****0m**i^m**m*fitm*im***i***iiii 


23 




;TEST NUMBER * 


AT24 




;ADDRESS OF NEXT TEST * 


100. 




; ITERATION COUNT * 


AGBA 




;SCOP.E ENTRY POINT « 


X = X+1 




; * 



^l^L^***** 

AT23: 



0^,**00 4fjnnfm****************m*m******** 

•TEST THAT MODEM INTERRUPT (BIT 15) SETS WHEN CARRIER DETECT 
jCHANGES STATE, AND IS CLEARED WHEN RXCSR IS READ. 



4: 4> 4r i» iti « 41 * 4> 4< 



BIC 

JSR 

MOV 

BIT 

BEO 

ERROR 

BR 

BIS 



JSR 

MOV 

BIT 

BNE 

ERROR 

BR 

BIT 

BEO 
ERROR 
BR 
BIC 



JSR 
MOV 
BIT 
BNE 
ERROR 



#BIT1 ,@RXCSR 
%7,TIME 
©RXCSR, RXCSRT 
#BIT15,@RXCSR 
AGBB 

AGBE 

*BIT1 , ©RXCSR 



%7,TIME 
@RXCSR,RXCSRT 
#BIT15,RXCSRT 
AGBC 

AGBE 

#BIT15, ©RXCSR 



AGBE 

#BIT1 , ©RXCSR 



%7,TIME 
©RXCSR, RXCSRT 
<SIBIT15,RXCSRT 
AGBE 



CLEAR DATA TERMINAL READY 
DELAY 

READ RXCSR 

TEST MODEM INTERRUPT 
WAS CLEAR GO TO AGBB 
WASN'T CLEAR 
GO TO SCOPE 

SETTING DATA TERMINAL READY 
CAUSES CARRIER DETECT TO SET 
WHICH CAUSES MODEM INTERRUPT TO SET 
DELAY 

MOVE RXCSR TO TEMPORARY LOCATION 
TEST MODEM INTERRUPT 
SHOULD BE SET GO TO AGBC 
WAS CLEAR 
GO TO SCOPE 

MODEM INTERRUPT BIT SHOULD 
HAVE BEEN CLEARED 
IT WAS GO TO AGBD 
IT WASN'T 
GO TO SCOPE 

CLEARING DATA TERMINAL READY 
CAUSES CARRIER DETECT TO CLEAR 
BUT MODEM INTERRUPT WILL SET 
DELAY 

MOV RXCSR TO TEMPORARY LOCATION 

TEST MODEM INTERRUPT 
SHOULD BE SET 
IT WASN'T 
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SEQ 0037 



1929 


010322 


000400 








BR 


AGBE 




1930 


010324 


104012 






AGBE: 


SCOPE 




; SCOPE 


1931 


010326 










TSTA 


100. ,AJB,0 




1932 


010326 










TSTAA 


AJB.IOO. ,\X+l+0, 


\X+2,\X+1 


1933 












*0*****m*****m**********************************************'*** ************ 


1934 


010326 


000024 






AT24: 


24 




;TEST NUMBER ♦ 


1935 


010330 


01 0440 








AT25 




;ADDRESS OF NEXT TEST * 


1936 


010332 


000144 








100. 




; ITERATION COUNT * 


1937 


010334 


010336 








AJBA 




; SCOPE ENTRY POINT ♦ 


1938 




000024 








X = X+1 




; * 


1939 










•#************* 


*****iH,0**rt,****** 


******0 ****** ************************************ 


1940 










;TEST 


THAT CLEAR TO SEND (BIT13) 


SETS/CLEARS WHEN DATA TERMINAL 


1941 










; READY 


SETS/CLEARS. 




1942 


010336 


042777 


000002 


171044 


AJBA: 


BIC 


#BIT1 ,@RXCSR 


; CLEAR DATA TERMINAL READY 


1943 


010344 


004737 


01 1762 






JSR 


%7,TIME 


; DELAY 


1944 


010350 


032777 


020000 


171032 




BIT 


#BIT13,@RXCSR 


;TEST CLEAR TO SEND 


1945 


010356 


001402 








BEO 


AJBB 




1946 


010360 


104003 








ERROR 




; CLEAR TO SEND SHOULD BE CLEAR 


1947 


010362 


000425 








BR 


AJBD 




1948 


010364 


052777 


000002 


171016 


AJBB: 


BIS 


#BIT1 ,@RXCSR 


;SET DATA TERMINAL READY 


1949 


010372 


004737 


011762 






JSR 


%7,TIME 


; DELAY 


1950 


010376 


032777 


020000 


171004 




BIT 


#BIT13,u:RXCSR 


;TEST CLEAR TO SEND 


1951 


010404 


001002 








BNE 


AJBC 


; BRANCH IF SET 


1952 


010406 


104003 








ERROR 




; CLEAR TO SEND SHOULD BE SET 


1953 


010410 


000412 








BR 


AJBD 




1954 


010412 


042777 


000002 


170770 


AJBC: 


BIC 


#BIT1 , ©RXCSR 


; CLEAR DATA TERMINAL READY 


1955 


010420 


004737 


011762 






JSR 


%7,TIME 


; DELAY 


1956 


010424 


032777 


020000 


170756 




BIT 


#BIT13,9RXCSR 


;TEST CLEAR TO SEND 


1957 


010432 


001401 








BEQ 


AJBD 




1958 


010434 


104003 








ERROR 




; CLEAR TO SEND SHOULD BE CLEAR 


1959 


010436 


104012 






AJBD: 


SCOPE 




; SCOPE 


1960 


010440 










TSTA 


100. ,AKB,0 




1961 


010440 










TSTAA 


AKB.IOO. ,\X+1+0,\X+2,\X+1 


1962 










• ^iit,^i**i^0m****** 


***************** 


************************************************* 


1963 


010440 


000025 






AT25: 


25 




;TEST NUMBER * 


1964 


010442 


01 0534 








AT26 




; ADDRESS OF NEXT TEST « 


1965 


010444 


000144 








100. 




; ITERATION COUNT * 


1966 


010446 


010450 








AKBA 




; SCOPE ENTRY POINT * 


1967 




000025 








X=X+1 






1968 










• *,**********iti*********itt********* 


************************************************* 


1969 










;TEST 


THAT RING 


(BIT 14 RXCoR) SETS WHEN REQUEST TO 


1970 










;SEND 


SETS AND 


CLEARS AND RESET 


CLEARS RING 


1971 


010450 


042777 


000004 


170732 


AKBA: 


BIC 


#BIT2, ©RXCSR 


; CLEAR REQUEST TO SEND 


1972 


010456 


004737 


01 1762 






JSR 


%7,TIME 


; DELAY 


1973 


010462 


052777 


000004 


170720 




BIS 


#BIT2, ©RXCSR 


;SET REQUEST TO SEND 


1974 


010470 


004737 


01 1762 






JSR 


%7,TIME 


; DELAY 


1975 


010474 


032777 


040000 


170706 




BIT 


#BIT14, ©RXCSR 


;TEST RING 


1976 


010502 


001001 








BNE 


AKBC 




1977 


010504 


104003 








ERROR 




;RING SHOULD BE SET 


1978 


010506 


042777 


000004 


170674 


AKBC: 


BIC 


#BIT2, ©RXCSR 


; CLEAR REQUEST TO SEND 


1979 


010514 


004737 


011762 






JSR 


%7,TIME 


•.DELAY 


1980 


010520 


032777 


040000 


170662 




BIT 


iS* BIT 14, ©RXCSR 


;TEST RING 


1981 


010526 


001401 








BEQ 


.+4 


; SHOULD BE CLEAR 


1982 


010530 


104003 








ERROR 






1983 


010532 


104012 








SCOPE 




; SCOPE 


1984 


010534 










TSTA 


100. ,AOB,0 
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1 0534 










TSTAA 


AOB.IOO. ,\X-H+0,\X+2.\X+1 


1 986 










• **** 










1 0534 








• . 


26 




;TEST NUMBER * 


1 988 




1 0646 








AT27 




; ADDRESS OF NEXT TEST * 




U 1 U3*fU 


A A 1 A A 








100. 




; ITERATION COUNT « 


990 


1 0542 


n 1 n^AA 

U 1 UD*t*t 








AOBA 




jSCOPE ENTRY POINT * 






A A A A O C 








X = X+1 




i ^ 




















1 oQ-a 










• TEST 


THAT MODEM INTERRUPT (BIT 


15 RXCSR) SETS WHEN RING SETS. 


qqI 


V 1 UDm** 


04 2777 


A A A A A;A 
UUUUU** 




AOBA. 




#BIT2,@RXCSR 


;CLEAR REQUEST TO SEND 


QQ^ 














%7,TIME 


; DELAY 


qqfi 


U 1 UDDO 


032777 


1 AAAAA 
1 UUUUw 


1 70fi34 




RT T 


#BIT15,@RXCSR 


;TEST MODEM INTERRUPT BIT 


QQ7 


1 0564 


AA 1 ACt'i 
UU 1 HU^ 








RPn 


AOBB 






U 1 UDDO 


1 A /in A "a 

1 U mU U J 








ERRQH 






QQQ 




000425 








BR 


AOBD 




2000 


01 0572 


052777 


A A A A A^ 
UUUUU*» 


7061 




BIS 


#BIT2,@>RXCSR 


;SET REQUEST TO SEND 


2001 


1 0600 


004737 


Oil 762 






JSR 


%7,TIME 


; DELAY 




(J 1 UDUh 


032777 


< AAAAA 


1 70R7R 




BIT 


#BIT15, ©RXCSR 


;TEST MODEM INTERRUPT BIT 


2003 




AA 1 AAT 

UU 1 uu^ 








BNE 


AOBC 




2004 


01 061 4 










ERROR 








_ _ „ 

U 1 Od 1 t3 


AA A^ 1 O 
UU U^t i 








BR 


AOBD 




2006 


ts 1 neon 


042777 


A A A A A;d 
UUUUU** 


1 70Sfi3 




BIC 


#BIT2, ©RXCSR 


CLEAR REQUEST TO SEND 


2007 


1 0626 


004737 


Oil 762 






JSR 


%7,TIME 


.DELAY 




1 0632 




1 AAAAA 
1 UUwUU 


70550 




BIT 


#BIT15,@RXCSR 


TEST MODEM INTERRUPT BIT 


2009 


n 1 nKdfi 

U I UDHU 


00 1401 








BEO 


AOBD 




2010 


U 1 UDh^ 


1 U^UU*j 








ERROR 






201 1 


1 0644 


1 0401 2 






AQBD : 


SCOPE 




SCOPE 




n 1 nc/if; 

U 1 UD^D 










TSTA 


100. ,ALB,0 




2013 


1 0646 










TSTAA 


ALB, 100. ,\X+1+0,\X-i-2AX+1 












■ **** 






2015 


1 0646 


000027 






AT27 J 


27 




TEST NUMBER * 


2016 


U 1 UQ3U 


U 1 u / o u 








AT30 




ADDRESS OF NEXT TEST ♦ 


201 7 


1 0552 


000 1 44 








100. 




ITERATION COUNT * 


201 8 


1 0654 


1 0656 








ALBA 




SCOPE ENTRY POINT * 






WW UU ^ / 








X = X+1 






2020 
















2021 










• TEST 


THAT SUPERVISORY RECEIVE DATA (BIT 10 RXCSR) SETS/CLEARS 


2022 










* WHEN 


SUPERVISORY XMIT DATA SETS/CLEARS. 


2023 


U 1 UODw 


042777 


00001 


1 70524 


ALBA : 


BIC 


#BIT3,@RXCSR 


CLEAR SUPERVISOR XMIT DATA 


2024 


1 0664 


004737 


oil 762 






JSR 


%7,TIME 


DELAY 


2025 


01 0670 


032777 


002000 


1 7051 2 




BIT 


#BIT10, ©RXCSR 


TEST SUPERVISORY RECEIVE DATA. 


2026 


1 0676 


00 1402 








BEO 


ALBB 






1 0700 


1 04003 








ERROR 


; SHOULD HAVE BEEN CLEAR 


2028 


01 0702 


000425 








BR 


ALBD 




2029 


010704 


052777 


000010 


170476 


ALBB: 


BIS 


A'BIT3,i>RXCSR 


SET SUPERVISORY XMIT DATA 


2030 


010712 


004737 


01 1762 






JSR 


%7,TIME ;DELAY 


2031 


010716 


032777 


002000 


170464 




BIT 


#BIT10, ©RXCSR 


TEST SUPERVISORY RECEIVE DATA 


2032 


010724 


001002 








BNE 


ALBC 




2033 


010726 


104003 








ERROR 


; SHOULD HAVE BEEN SET 


2034 


010730 


000412 








BR 


ALBD 




2035 


010732 


042777 


000010 


170450 


ALBC: 


BIC 


#BIT3,@RXCSR 


CLEAR SUPERVISORY XMIT DATA 


2036 


01 0740 


004737 


01 1762 






JSR 


%7,TIME 


DELAY 


2037 


010744 


032777 


002000 


170436 




BIT 


#BIT10,#RXCSR 


TEST SUPERVISORY RECEIVE DATA 


2038 


010752 


001401 








BEQ 


ALBD 




2039 


010754 


104003 








ERROR 




SHOULD HAVE BEEN CLEAR 


2040 


010756 


104012 






ALBD: 


SCOPE 




SCOPE 
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SEQ 0039 



2041 
2042 
2043 
2044 
2045 
2046 
2047 
2048 
2049 
2050 
2051 
2052 
2053 
2054 
2055 
2056 
2057 
2058 
2059 
2060 
2061 
2062 
2063 
2064 
2065 
2066 
2067 
2068 
2069 
2070 
2071 
2072 
2073 
2074 
2075 
2076 
2077 
2078 
2079 
2080 
2081 
2082 
2083 
2084 
2085 
2086 
2087 
2088 
2089 
2090 
2091 
2092 
2093 
2094 
2095 
2096 



010760 
010760 

010760 
010762 
010764 
010766 



010770 
010776 
01 1002 
011010 
011014 
01 1022 
01 1024 
01 1026 
01 1030 
01 1036 
01 1040 
01 1042 
01 1044 
01 1052 
01 1056 
01 1064 
01 1066 
01 1070 
01 1072 
01 1 100 
01 1 1 04 
011112 
011114 
011116 
01 1 120 
01 1 120 

011120 
01 1 122 
01 1 124 
01 1 126 



01 1 130 
01 1136 
01 1144 
01 1 146 
01 1 154 
011156 
01 1 164 
01 1 172 
011176 
011200 
01 1202 
01 1204 



000030 
01 1 120 
000144 
01 0770 
000030 



042777 
004737 
052777 
004737 
032777 
001002 
104003 
000433 
032777 
001402 
104003 
000425 
042777 
004737 
032777 
001002 
104003 
000412 
052777 
004737 
032777 
001001 
104003 
104012 



000010 
01 1762 
000010 
01 1762 
100000 



000010 
01 1762 
100000 



000010 
011762 
100000 



100031 
01 1224 
000012 
01 1 130 
000031 



01 2737 
01 2777 
10401 1 
022777 
001422 
01 7737 
012737 
004537 
001616 
015442 
000006 
004537 



000340 
177777 



170232 
000200 
004474 



TSTA 
TSTAA 



100. ,AMB,0 

AMB.IOO. ,\X+1+0,\X+2,\X+1 



. H<**>t>«> 

AT30: 



30 
AT31 
100. 
AMBA 
X = X+1 



TEST NUMBER 
ADDRESS OF NEXT TEST 
ITERATION COUNT 
SCOPE ENTRY POINT 



« KoK itc * itc >)! 



170412 
170400 
170366 



jTEST 
AMBA: 



THAT SUP REC DATA TRANSISTIONS SET MODEM 



INTERRUPT 



mm**************** 



100000 170352 AMBB: 



170336 
170324 



170310 
170276 



177776 
170250 



BIC 

JSR 

BIS 

JSR 

BIT 

BNE 

ERROR 

BR 

BIT 

BEQ 

ERROR 

BR 

BIC 

JSR 

BIT 

BNE 

ERROR 

BR 

BIS 

JSR 

BIT 

BNE 

ERROR 

SCOPE 

TSTA 

TSTAA 



#BIT3,@RXCSR 

%7,TIME 

#BIT3,@RXCSR 

%7,TIME 

#BIT15,#RXCSR 

AMBB 

AMBE 

#BIT15, ©RXCSR 
AMBC 

AMBE 

#BIT3,@RXCSR 
%7,TIME 
#BITl5,i>RXCSR 
AMBD 

AMBE. 

#BIT3, ©RXCSR 
%7,TIME 
#BIT15,@RXCSR 
AMBE 



;CLEAR SUP REC 
; DELAY 

;SET SUP REC 
; DELAY 

;TEST MODEM INTERRUPT 

;MODEM INTERRUPT SHOULD BE SET 



;MODEM INTERRUPT SHOULD BE 
;CLEARED BY PREVIOUS READ 



;1-0 TRANS OF SUP REC DATA 
;DELAY 

;TEST MODEM INTERRUPT 
; SHOULD BE SET 



0-1 TRANS OF SUP REC DATA 
DELAY 

TEST MODEM INTERRUPT 
SHOULD BE SET 



; « Dt 41 « i| 

AT31 : 



;TEST 
ABAA: 



10. , ABA, CD 

ABA, 10. ,\X+1+CD,\X+2,\X+1 

m******************'¥*'**************** 

;TEST NUMBER 
;ADDRESS OF NEXT TEST 
ITERATION COUNT 
;SCOPE ENTRY POINT 



m* ************ ************** 



000200 170240 



001604 
001616 



100031 
AT32 
10. 
ABAA 
X=X+1 

m******************************************************** 

THAT RESET CLEARS ALL TXCSR BITS, AND SETS BIT 7 (READY) 

MOV #PRTY7,PSW ;SET PRIORITY 7. 

MOV #-1,@TXCSR ;SET ALL POSSIBLE BITS IN TXCSR 

SRESET ; ISSUE RESET TO CLEAR BITS 

CMP #BIT7, ©TXCSR ;SEE IF ONLY BIT 7 IS SET. 

BEQ ABAB ; BRANCH IF ONLY BIT 7 IS SET 

MOV ©TXCSR, TXCSRT ;SAVE CONTENTS OF TXCSR 

MOV #BIT7,TEMP ;MOVE EXPECTED TXCSR TO TEMP. 

JSR %5,0ACNV ;G0 TO OCTAL TO ASCII CONVERT. 

TEMP ; SOURCE ADDR. 

ATXSB ;DESTINATION ADDR. 

6 ;#0F DIGITS TO CONVERT. 

JSR %5,0ACNV ;G0 TO OCTAL TO ASCII CONVERT. 



m*********** ****** 
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SEQ 0040 



2097 
2098 
2099 
2100 
2101 
21 02 
2103 
2104 
2105 
2106 
2107 
2108 
2109 
2110 
21 1 1 
2112 
21 13 
21 14 
2115 
2116 
2117 
2118 
2119 
2120 
2121 
2122 
2123 
2124 
2125 
2126 
2127 
2128 
2129 
2130 
2131 
2132 
2133 
2134 
2135 
213S 
2137 
2138 
2139 
2140 
2141 
2142 
2143 
2144 
2145 
2146 
2147 
2148 
2149 
2150 
2151 
2152 



011210 

011212 
011214 
011216 
01 1220 
01 1222 
01 1224 
011224 

01 1224 
01 1226 
011230 
01 1232 



001604 
01 5457 
000006 
104015 
01 5427 
104012 



000032 
01 1374 
000012 
01 1234 
000032 



TXCSRT 
ATXWAS 
6 



ABAB: 



AT32: 



SOURCE ADDR. 

DESTINATION ADDR. 

#0F DIGITS TO CONVERT. 

RESET FAILED TO CLEAR ALL BITS EXCEPT 
BIT 7 - SEE PRINTOUT 
SCOPE 



10. ,ACA,0 

ACA, 10. ,\X+1+0,\X+2,\X+1 

;TEST NUMBER 



ERR0R1 
ATXCSR 
SCOPE 
TSTA 
TSTAA 

32 

AT33 
10. 
ACAA 
X=X+1 
« ^ 4< If « « it> * * * * * 

JTEST THAT RESET CLEARS ALL RXCSR BITS EXCEPT DATA TERMINAL READY 
jCLEAR TO SEND, CARRIER DET 



ADDRESS OF NEXT TEST 
ITERATION COUNT 
SCOPE ENTRY POINT 



01 1234 


01 2737 




177776 


ACAA: 


MOV 


#PRTY7, PSW 


SET PRIORITY 7 


01 1242 


042777 


000002 


170140 




BIC 


#BIT1 .@RXCSR 


CLEAR DATA TERM. READY 


01 1250 


01 2777 


177777 


170132 




MOV 


#-1 , ©RXCSR 


SET ALL POSSIBLE BITS IN RXCSR 


01 1256 


052777 


000004 


170130 




BIS 


#4,@TXCSR 


SET MAINT BIT 


01 1264 


005077 


170126 






CLR 


©TXBUF 


TRANSMIT A CHAR 


01 1270 


104020 








TIMETX 




TIME OUT TX DONE 


01 1272 


104003 








ERROR 




ERROR DONE NOT SETTING 


01 1274 


01 2777 


000001 


170114 




MOV 


#1 ,®TXBUF 


TRANSMIT ANOTHER CHAR. 


01 1302 


104017 








TIMERX 




TIME OUT RX DONE 


01 1304 


104003 








ERROR 




ERROR DONE NOT SETTING 


01 1306 


10401 1 








SRESET 




ISSUE RESET TO CLEAR BITS. 


011310 


01 7737 


170074 


001606 




MOV 


©RXCSR, RXCSRT 


MOVE RXCSR CONTENTS TO RXCSRT 


011316 


022737 


030002 


001606 




CMP 


#30002, RXCSRT 


SEE IF ONLY BITS 1,12,13 SET 


01 1324 


001417 








BEO 


ACAB 


BRANCH IF ONLY BITS 1.12,13 SET. 


01 1326 


01 2737 


030002 


001616 




MOV 


#30002, TEMP 




01 1334 


004537 


004474 






JSR 


%5,0ACNV 


GO TO OCTAL TO ASCII CONVERT. 


01 1340 


001616 








TEMP 




SOURCE ADDR. 


01 1342 


01 5501 








ARXSB 




DESTINATION ADDR. 


01 1344 


000006 








6 




#0F DIGITS TO CONVERT. 


01 1346 


004537 


004474 






USR 


%5,0ACNV 


GO TO OCTAL TO ASCII CONVERT. 


01 1352 


001606 








RXCSRT 




SOURCE ADDR. 


01 1354 


01 5516 








ARXWAS 




DESTINATION ADDR. 


01 1356 


000006 








6 




#0F DIGITS TO CONVERT. 


01 1360 


104015 








ERR0R1 




RESET FAILED TO CLEAR ALL BITS EXCEPT 


01 1362 


015466 








ARXCSR 




BIT 0. SEE ERROR PRINTOUT. 


01 1364 


042777 


000002 


170016 


ACAB: 


BIC 


#BIT1 .(PRXCSR 


CLEAR DATA TERM. READY 


01 1372 


104012 








SCOPE 




SCOPE 


01 1374 










TSTA 


10. , ADA, CD 




01 1374 










TSTAA 


ADA, 10. ,\X+1+CD,\X+2,\X+ . 


01 1374 


100033 






AT33: 


100033 




TEST NUMBER * 


01 1376 


01 1454 








AT34 




ADDRESS OF NEXT TEST * 


01 1400 


000012 








10. 




ITERATION COUNT ♦ 


01 1402 


01 1404 
000033 








ADAA 
X = X+1 




SCOPE ENTRY POINT * 



011404 005077 170006 



i^;^'************************** ****************** ************* 

TEST THAT LOADING TXBUF (TRANSMITTER BUFFER) CLEARS TXCSR BIT 7 (READY) 
AND WITHOUT MAINT SET THAT TXDONE SETS READY 
,DAA: CLR ©TXBUF ; LOAD TXBUF 
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2153 


011410 


104020 








TIMETX 




;TIME OUT TX DONE 


2154 


011412 


104003 








ERROR 




; ERROR, DONE NOT SETTING 


2155 


011414 


005077 


167776 






CLR 


PTXBUF 


;LOAD TX BUF 


2156 


01 1420 


105777 


167770 






TSTB 


©TXCSR 


;TEST TXCSR BIT 7 (READY BIT) 


2157 


01 1424 


100002 








BPL 


ADAB 


; BRANCH IF BIT NOT SET. 


2158 


01 1426 


104003 








ERROR 




; ERROR. LOADING TXBUF FAILED TO CLEAR READY. 


2159 


01 1430 


000407 








BR 


ADAC 




2160 


01 1432 


104020 






ADAB: 


TIMETX 




;WAIT FOR DONE 


2161 


01 1434 


104003 








ERROR 




;DONE NEVER SET 


2162 


01 1436 


032777 


000200 


167750 




BIT 


#BIT7, ©TXCSR 




2163 


01 1444 


001001 








BNE 


.+4 




2164 


01 1446 


104003 








ERROR 




; READY DID NOT SET 


2165 


01 1450 


10401 1 






ADAC: 


SRESET 






2166 


01 1452 


104012 








SCOPE 




; SCOPE. 


2167 


01 1454 










TSTA 


1 . ,AIA,CD 




2168 


01 1454 










TSTAA 


AIA.I . ,\X+1+CD,\X+2,\X+1 


2169 










J ***** 


n******** 




ii************************************************** 


2170 


01 1454 


100034 






AT34: 


100034 




;TEST NUMBER * 


2171 


01 1456 


01 1776 








AT35 




; ADDRESS OF NEXT TEST * 


2172 


01 1460 


000001 








1 . 




; ITERATION COUNT * 


2173 


01 1462 


01 1464 








AIAA 




;SCOPE ENTRY POINT * 


2174 




000034 








X=X+1 




; ♦ 


2175 










• *****************************:( 




2176 










;TEST 


THAT TRANSMIT SPEEDS ARE 


ARRANGED IN ASCENDING ORDER BY CHECKING THAT TIME 


2177 










;T0 READY BIT 


(TXCSR BIT 7) DECREASES AS A HIGHER SPEED IS SELECTED. 


2178 


01 1464 


004737 


006216 




AIAA: 


USR 


%7.D0THIS 


;TEST IF THIS TEST SELECTED 


2179 


01 1470 


104001 








TYPES 






2180 


01 1472 


01 6764 








MSETTX 






2181 


01 1474 


01 701 2 








MSETC 






2182 


01 1476 


01 7274 








MSO 






2183 


01 1500 


177777 








-1 






2184 


01 1502 


000000 








HALT 






2185 


01 1504 


004737 


011712 






USR 


%7,AIAS 


JOUTPUT CHAR AND TIME. 


2186 


011510 


01 3737 


011774 


001564 




MOV 


AIAST,CTRO 


JMOVE ELAPSED TIME TO CTRO. 


2187 


01 1516 


104-000 








TYPE 






2188 


01 1520 


01 7304 








MSI 






2189 


01 1522 


000000 








HALT 






2190 


01 1524 


004737 


01 1712 






USR 


%7,AIAS 


;OUTPUT CHAR AND TIME. 


2191 


01 1530 


01 3737 


011774 


001566 




MOV 


AIAST.CTRI 


;MOVE ELAPSED TIME TO CTRL 


2192 


01 1536 


104000 








TYPE 






2193 


01 1540 


01 7314 








MS2 






2194 


01 1542 


000000 








HALT 






2195 


01 1544 


004737 


01 1712 






USR 


%7,AIAS 


; OUTPUT CHAR AND TIME. 


2196 


01 1550 


01 3737 


011774 


001570 




MOV 


AIAST,CTR2 


;MOVE ELAPSED TIME TO CTR2. 


2197 


01 1556 


104000 








TYPE 






2198 


01 1560 


01 7324 








MS3 






2199 


01 1562 


000000 








HALT 






2200 


01 1564 


004737 


011712 






USR 


%7,AIAS 


;OUTPUT CHAR AND TIME. 


2201 


01 1570 


01 3737 


01 1774 


001572 




MOV 


AIAST.CTRS 


JMOVE ELAPSED TIME TO CTR3. 


2202 


01 1576 


104000 








TYPE 






2203 


01 1600 


01 7334 








MS4 






2204 


01 1602 


000000 








HALT 






2205 


01 1604 


004737 


011712 






USR 


X7,AIAS 


; OUTPUT CHAR AND TIME 


2206 


011610 


013737 


011774 


001574 




MOV 


AIAST,CTR4 


;MOVE ELAPSED TIME TO CTR4 


2207 


01 1616 


104000 








TYPE 






2208 


01 1620 


01 7344 








MS5 
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SEQ 0043 



2209 


01 1622 


000000 








HALT 








2210 


01 1624 


004737 


01 1712 






JSR 


%7,AIAS 


•.OUTPUT CHAR AND TIME 




221 1 


01 1630 


01 3737 


01 1774 


001576 




MOV 


AIAST ,CTR5 


;MOVE ELAPSED TIME TO CTR5 




2212 


01 1636 


104000 








TYPE 








2213 


01 1640 


01 7354 








MS6 








2214 


01 1642 


000000 








HALT 








2215 


01 1644 


004737 


01 1712 






JSR 


K7,AIAS 


; OUTPUT CHAR AND TIME 




2216 


01 1650 


01 3737 


01 1774 


001600 




MOV 


AIAST ,CTR6 


;MOVE ELAPSED TIME TO CTR6 




2217 


01 1656 


104000 








TYPE 








2218 


01 1660 


01 7364 








MS7 








2219 


01 1662 


000000 








HALT 








2220 


01 1664 


004737 


011712 






JSR 


%7, AIAS 


{OUTPUT CHAR AND TIME 




2221 


01 1670 


01 3737 


01 1774 


001602 




MOV 


AIAST ,CTR7 


JMOVE ELAPSED TIME TO CTR7 




2222 


01 1676 


004737 


014424 






JSR 


%7,CWPT 


; CHECK THAT CTRO THROUGH CTR7 CONTAIN 




2223 


01 1 702 


000402 








BR 


AIAF 


{DESCENDING VALUES 




2224 


01 1704 


104015 








ERRORl 




{TRANSMIT SPEEDS NOT ARRANGED IN 




2225 


01 1706 


01 5526 








ETXTIM 




{ASCENDING ORDER. 




2226 


011710 


104012 






AIAF: 


SCOPE 




{SCOPE 




2227 










» 










2228 


011712 


005037 


01 1774 




AIAS: 


CLR 


AIAST 


{CLEAR ELAPSED TIME COUNTER. 




2229 


011716 


105777 


167472 






TSTB 


PTXCSR 


{WAIT FOR TX READY. 




2230 


01 1 722 


100375 








BPL 


.-4 






2231 


01 1724 


005077 


167466 






CLR 


©TXBUF 






2232 


01 1 730 


1 05777 


167460 






TSTB 


@TXCSR 






2233 


01 1734 


100375 








BPL 


.-4 






2234 


01 1736 


005077 


167454 






CLR 


@TXBUF 


{LOAD TXBUF. 




2235 


01 1742 


004737 


01 1762 




AIASA: 


JSR 


%7,TIME 


{WAIT 75 US 




2236 


01 1 746 


005237 


01 1 774 






INC 


AIAST 


{INCREMENT ELAPSED TIME COUNTER. 




2237 


01 1752 


105777 


167436 






TSTB 


PTXCSR 


{READY SET? 




2238 


01 1756 


100371 








BPL 


AIASA 


{BRANCH IF READY NOT SET. 




2239 


01 1760 


000207 








RTS 


%7 


{EXIT. 




2240 




















2241 


01 1762 


01 2700 


000017 




time: 


MOV 


#15. ,%0 






2242 


01 1 766 


005300 






TIM1 : 


DEC 


%0 






2243 


01 1770 


001376 








BNE 


TIM1 






2244 


01 1 772 


000207 








RTS 


%7 






2245 


01 1774 


000000 






AIAST: 


OPEN 








2246 


01 1776 










TSTA 


10. .ALA.O 






2247 


01 1776 










TSTAA 


ALA, 10. ,\X+1+0,\X+2,\X+1 




2248 














2249 


01 1 776 


000035 






AT35: 


35 




{TEST NUMBER 




2250 


01 2000 


01 2052 








AT36 




{ADDRESS OF NEXT TEST 


* 


2251 


012002 


000012 








10. 




{ITERATION COUNT 




2252 


012004 


01 2006 








ALAA 




{SCOPE ENTRY POINT 




2253 




000035 








X = X+1 






« 


2254 
















2255 










JTEST 


THAT OUTPUTTING A CHARACTER WITH THE MAINTENANCE BIT SET (TXCSR BIT 2) 




2256 










{RESULTS IN DONE BIT SETTING 


(RXCSR.BIT 7) NO LATER THAN 500 MSECS, AND 




2257 










;THAT 


RESET INSTRUCTION CLEARS THE DONE BIT 




2258 




















2259 


012006 


052777 


000004 


167400 


A LA a: 


BIS 


#BIT2,@TXCSR 


{SET MAINTENANCE BIT 




2260 


012014 


005077 


167376 






CLR 


S>TXBUF 


{LOAD TXBUF 




2261 


012020 


104016 








DELAY 




{WAIT 500 MSECS. 




2262 


012022 


000764 








500. 








2263 


012024 


105777 


167360 






TSTB 


©RXCSR 


{SEE IF DONE BIT IS SET 




2264 


012030 


100402 








BMI 


ALAB 


{BRANCH IF DONE BIT IS SET 
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SEQ 0043 



2265 


012032 


104003 








ERROR 




{DONE BIT FAILED TO SET 




2266 


012034 


000405 








BR 


A LAC 






2267 


012036 


10401 1 






ALAB: 


SRESET 




{ISSUE RESET TO CLEAR DONE BIT 




2268 


012040 


105777 


167344 






TSTB 


@RXCSR 


{SEE IF DONE BIT IS CLEARED 




2269 


012044 


100001 








BPL 


A LAC 


{BRANCH IF DONE BIT IS CLEARED 




2270 


012046 


104003 








ERROR 




{RESET FAILED TO CLEAR DONE BIT 




2271 


012050 


104012 






A LAC: 


SCOPE 




{SCOPE 




2272 


012052 










TSTA 


100. .AMA.CD 






2273 


012052 










TSTAA 


AMA.IOO. AX-»-H-CD,\X+2,\X+1 




2274 












2275 


012052 


100036 






AT36: 


100036 




{TEST NUMBER 




2276 


012054 


01 21 16 








AT37 




{ADDRESS OF NEXT TEST 


♦ 


2277 


012056 


000144 








100. 




{ITERATION COUNT 


* 


2278 


012060 


012062 








AMAA 




{SCOPE ENTRY POINT 




2279 




000036 








X = X+1 








2280 












2281 










{TEST 


THAT DONE 


BIT (RXCSR BIT 


7) IS CLEARED BY READING RXBUF. 




2282 










{DONE 


SET BY OUTPUTTING CHARACT 


LR WITH MAINTENANCE BIT SET (TXCSR BIT 2) 




2283 


012062 


052777 


000004 


1 67324 


AMAA: 


BIS 


#BIT2,@TXCSR 


{SET MAINTENANCE BIT (TXCSR BIT 2) 




2284 


012070 


005077 


167322 






CLR 


©TXBUF 


{LOAD TXBUF 




2285 


012074 


104017 








TIMERX 




{WAIT FOR DONE BIT TO SET. 




2286 


012076 


104003 








ERROR 








2287 


012100 


005777 


167306 






TST 


@RXBUF 


{READ RXBUF TO CLEAR DONE BIT 




2288 


012104 


105777 


167300 






TSTB 


©RXCSR 


{SEE IF DONE BIT IS CLEAR 




2289 


0121 10 


100001 








BPL 


AMAC 


{BRANCH IF DONE BIT IS CLEAR 




2290 


0121 12 


104003 








ERROR 




{READING RXBUF FAILED TO CLEAR DONE BIT 




2291 


0121 14 


104012 






AMAC: 


SCOPE 




{SCOPE 




2292 


0121 16 










TSTA 


100. ,AOA,CD 






2293 


0121 16 










TSTAA 


AOA.IOO. ,\X-H+CD,\X+2,\X+1 




2294 












i«< )|< >|< >|! !)< i(>« 4< << i|< 4t « i(c « i«c 4c 4< 4< ««««««« 4> «* 4> «« <(i « 


2295 


0121 16 


100037 






AT37: 


100037 




{TEST NUMBER 




2296 


012120 


012226 








AT40 




{ADDRESS OF NEXT TEST 


* 


2297 


012122 


000144 








100. 




{ITERATION COUNT 




2298 


012124 


012132 








AOAA 




{SCOPE ENTRY POINT 


« 


2299 




000037 








XsX+1 








2300 










{**«** 




2301 










{TEST 


THAT RECEIVER ACTIVE SETS 


WHEN CHAR STARTS AND 




2302 










{CLEARS WHEN RECEIVER DONE SETS 






2303 


012126 


004737 


002706 






JSR 


%7,CDINIT 


{INIT IF C-D DEVICE 




2304 


012132 


052777 


000004 


167254 


AOAA: 


BIS 


#BIT2, ©TXCSR 


{SET MA I NT 




2305 


012140 


005077 


167252 






CLR 


©TXBUF 


{TRANSMIT CHAR 




2306 


012144 


005037 


001616 






CLR 


TEMP 


{CLEAR BUSY INDICATOR 




2307 


012150 


032777 


004000 


167232 


AOAB: 


BIT 


i^BIT1 1 , ©RXCSR 


{IS RECEIVER ACTIVE SET 




2308 


012156 


001402 








BEQ 


A0AB1 


{BRANCH IF CLEAR 




2309 


012160 


005237 


001616 






INC 


TEMP 


{YES. REMEMBER THAT 




2310 


012164 


105777 


167220 




A0AB1 : 


TSTB 


©RXCSR 


{SEE IF UONE SET 




2311 


012170 


100367 








BPL 


AOAB 






2312 


012172 


023727 


001616 


000000 




CMP 


TEMP,#0 


{DID RECEIVER ACTIVE SET 




2313 


012200 


001002 








BNE 


AOAC 






2314 


012202 


104003 








ERROR 




{RECEIVER ACTIVE NEVER SET 




2315 


012204 


000405 








BR 


AOAD 






2316 


012206 


032777 


004000 


167174 


AOAC! 


BIT 


*BIT11 .©RXCSR 


{DID DONE CLEAR ACTIVE 




2317 


012214 


001401 








BEQ 


AOAD 






2318 


012216 


104003 








ERROR 




{NO. RECEIVER ACTIVE DID NOT CLEAR 




2319 


012220 


005777 


167166 




aoad: 


TST 


©RXBUF 


{CLEAR RX DONE 




2320 


012224 


104012 








SCOPE 
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SEQ 0044 



2321 


012226 










TSTA 


1 . .AOA.O 






2322 


012226 










TSTAA 


AQA , 1 . , \X+1 +0 , \X+2 , \X-H 




2323 














« « * 4i « iti Id * 41 1(1 4i 4, « « III 


********************** ****************0**,i,^„i,000,^n,^00 


2324 


012226 


000040 






AT40: 


40 




;TEST NUMBER 


* 


2325 


012230 


012530 








AT41 




;ADDRESS OF NEXT TEST 




2326 


012232 


000001 








1 . 




; ITERATION COUNT 




2327 


012234 


012236 








AQAA 




; SCOPE ENTRY POINT 




2328 




000040 








X=X+1 








2329 














******** *#*************4i,t,Mf,^*0^.i^llS*^^^*^^ 


************** ****^,******,tti00 


2330 










;TEST 


THAT RECEIVE SPEEDS ARE 


ARRANGED IN ASCENDING ORDER BY CHECKING THAT TIME 


2331 










JELAPSED TO DONE BIT SETTING 


(RXCSR BIT 7) DECREASES , 


AS A HIGHER SPEED 


2332 










;THIS 


IS NOT DONE IN MAINTENANCE MODE TX AND RX 




2333 










;POTS 


MUST BE 


STEPPED TOGETHER 




2334 










;IS SELECTED. 








2335 


01 2236 


004737 


006216 




AQAA: 


JSR 


X7,D0THIS 


; CHECK IF THIS TEST TO BE DONE 


2336 


012242 


104001 








TYPES 








2337 


012244 


016736 








MSETRX 








2338 


012246 


01 7012 








MSETC 








2339 


012250 


01 7274 








MSO 








2340 


01 2252 


1 77777 








-1 








2341 


01 2254 


000000 








HALT 








2342 


012256 


004737 


012464 






USR 


%7,A0AS 


;OUTPUT CHARACTER AND 


TIME DONE BIT 


2343 


012262 


01 3737 


012526 


001564 




MOV 


AOAST.CTRO 


;MOVE ELAPSED TIME TO 


CTRO 


2344 


012270 


104000 








TYPE 








2345 


01 2272 


01 7304 








MSI 








2346 


01 2274 


000000 








HALT 








2347 


012276 


004737 


012464 








%7,A0AS 


; OUTPUT CHARACTER AND 


TIME DONE BIT 


2348 


012302 


01 3737 


012526 


001566 




MOV 


AQAST , CTR1 


JMOVE ELAPSED TIME TO 


CTR1 


2349 


012310 


104000 








TYPE 








2350 


012312 


01 7314 








MS2 








2351 


012314 


000000 








HALT 








2352 


012316 


004737 


012464 






JSR 


%7,A0AS 


; OUTPUT CHARACTER AND 


TIME DONE BIT. 


2353 


012322 


01 3737 


012526 


001570 




MOV 


AQAST, CTR2 


;MOVE ELAPSED TIME TO 


CTR2. 


2354 


012330 


104000 








TYPE 








2355 


012332 


01 7324 








MS3 








2356 


012334 


000000 








HALT 








2357 


012336 


004737 


012464 






USR 


%7,AQAS 


; OUTPUT CHARACTER AND 


TIME DONE BIT 


2358 


012342 


01 3737 


012526 


001572 




MOV 


AQAST, CTR3 


;MOVE ELAPSED TIME TO 


CTR3. 


2359 


012350 


104000 








TYPE 








2360 


01 2352 


01 7334 








MS4 








2361 




WW UU WW 








HALT 








2362 


012356 


004737 


012464 






JSR 


%7,A0AS 






2363 


012362 


01 3737 


012526 


001574 




MOV 


AQAST, CTR4 






2364 


012370 


104000 








TYPE 








2365 


012372 


01 7344 








MS5 








2366 


012374 


000000 








HALT 








2367 


012376 


004737 


012464 






JSR 


%7,AQAS 






2368 


012402 


01 3737 


012526 


001576 




MOV 


AQAST, CTR5 






2369 


012410 


104000 








TYPE 








2370 


012412 


01 7354 








MSB 








2371 


012414 


000000 








HALT 








2372 


012416 


004737 


012464 






JSR 


%7,A0AS 






2373 


012422 


013737 


012526 


001600 




MOV 


AQAST, CTR6 







.MAIN. MACY11 30A(1052) 30-MAR-78 08:52 PAGE 45 
CZDLAG.P11 30-MAR-78 08:51 



SEQ 004S 



2374 


012430 


104000 








TYPE 








2375 


012432 


01 7364 








MS7 








2376 


012434 


000000 








HALT 








2377 


012436 


004737 


012464 






JSR 


567, AQAS 






2378 


012442 


01 3737 


012526 


001602 




MOV 


AQAST, CTR7 






2379 


012450 


004737 


014424 






JSR 


%7,CMPT 


; CHECK THAT CTRO THROUGH CTR3 CONTAIN 




2380 


012454 


000402 








BR 


AQAB 


; DESCENDING VALUES. 




2381 


012456 


104015 








ERR0R1 




; RECEIVE SPEEDS NOT ARRANGED IN 




2382 


012460 


015570 








ERXTIM 




;ASCENDING ORDER. 




2383 


012462 


104012 






AQAB: 


SCOPE 




; SCOPE 




2384 




















2385 


012464 


005037 


012526 




AQAS: 


CLR 


AQAST 


; CLEAR ELAPSED TIME COUNTER AQAST 




2386 


012470 


105777 


166720 






TSTB 


©TXCSR 


;WAIT FOR TX READY. 




2387 


012474 


100375 








BPL 


.-4 






2388 


012476 


005777 


166710 






TST 


@RXBUF 


JCLEAR DONE BIT IF SET 




2389 


012502 


005077 


166710 






CLR 


©TXBUF 


JLOAD TXBUF 




2390 


012506 


004737 


01 1762 




AQASA: 


JSR 


%7,TIME 






2391 


012512 


005237 


012526 






INC 


AQAST 


INCREMENT ELAPSED TIME COUNTER 




2392 


012516 


105777 


166666 






TSTB 


©RXCSR 


;DONE SET? 




2393 


012522 


100371 








BPL 


AQASA 


{BRANCH IF DONE NOT SET 




2394 


012524 


000207 








RTS 


%7 


;EXIT 




2395 


012526 


000000 






AQAST: 


OPEN 




; ELAPSED TIME COUNTER 




2396 


012530 










TSTA 


10. ,ARA,CD 






2397 


012530 










TSTAA 


ARA,10. ,\X+1+CD,\X+2.\X+1 




2398 










; ****** 


******** 


***************** *******************«***********|jl*4l***Stl#««4l*«#!tl*** 


2399 


012530 


100041 






AT41 : 


100041 




JTEST NUMBER 


* 


2400 


012532 


012674 








AT42 




; ADDRESS OF NEXT TEST 


* 


2401 


012534 


000012 








10. 




; ITERATION COUNT 


* 


2402 


012536 


012540 








ARAA 




JSCOPE ENTRY POINT 




2403 




000041 








X=X+1 








2404 










;****** 


******** 


**************************************************** ^^**00i^ifift^ii,i)itlfi^ii 


2405 










;TEST CORRECT OPERATION OF DATA 


OVERRUN BIT (RXBUF BIT 14) 




2406 


012540 


004737 


012654 




ARAA: 


JSR 


%7,ARAS 


JOUTPUT CHARACTER AND WAIT 500 MSECS 




2407 


012544 


004737 


012654 






JSR 


%7,ARAS 


JOUTPUT CHARACTER AND WAIT yOO MSECS 




2408 


012550 


01 7737 


166636 


001610 




MOV 


StRXBUF.RXBUFT 


;SAVE RXBUF CONTENTS + CLEAR DONE 




2409 


012556 


032737 


040000 


001610 




BIT 


#BIT14,RXBUFT 


;SEE IF DATA OVERRUN BIT WAS SET 




2410 


012564 


001002 








BNE 


.+6 


; BRANCH IF BIT WAS SET 




241 1 


012566 


104003 








ERROR 








2412 


012570 


104012 








SCOPE 








2413 


012572 


005737 


001610 






TST 


RXBUFT 


;SEE THAT ERROR BIT WAS SET (RXBUF BIT 15) 




2414 


012576 


100402 








BMI 


.+6 






2415 


012600 


104003 








ERROR 




; ERROR BIT FAILED TO SET WHEN OVERRUN SET 




2416 


012602 


104012 








SCOPE 








2417 


012604 


032777 


040000 


166600 




BIT 


#BIT14,©RXBUF 


;SEE THAT DATA OVERRUN WAS NOT 




2418 
















; CLEARED WHEN RXBUF WAS READ 




2419 


012612 


001002 








BNE 


.+6 


; BRANCH IF SET 




2420 


012614 


104003 








ERROR 




; READING RXBUF CLEARED DATA OVERRUN 




2421 


012616 


104012 








SCOPE 








2422 


012620 


004737 


012654 






JSR 


%7,ARAS 






2423 


012624 


032777 


100000 


166560 




BIT 


*BIT15,0RXBUF 


; OUTPUT CHAR +WAIT BOOMS 




2424 


012632 


001402 








BEQ 


.+6 


;TEST THAT ERROR CLEARED 




2425 


012634 


104003 








ERROR 








2426 


012636 


104012 








SCOPE 








2427 


012640 


032777 


040000 


166544 




BIT 


#BIT14,®RXBUF 


;TEST THAT OVERRUN CLEARED 




2428 


012646 


001401 








BEQ 


.+4 






2429 


012650 


104003 








ERROR 
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SEQ 004@ 



2430 


012652 


104012 










SCOPE 




•.SCOPE 


2431 


012654 


052777 


000004 


166532 


ARAS: 




BIS 


#BIT2,@TXCSR 


;SET MAINTENANCE BIT 


2432 


012662 


005077 


166530 








CLR 


@TXBUF 


;LOAD TXBUF 


2433 


012666 


104016 










DELAY 




; DELAY 500 MSECS 


2434 


012670 


000764 










500. 






2435 


012672 


000207 










RTS 


%7 


;EXIT 


2436 


012674 












TSTA 


10. , ATA, CD 




2437 


012674 












TSTAA 


ATA, 10. ,\X+1+CD,\X+2,\X+1 


2438 












** 




*************************************************** 


2439 


012674 


100042 






AT42: 




100042 




;TEST NUMBER * 


2440 


012676 


01 2762 










AT43 




; ADDRESS OF NEXT TEST * 


2441 


012700 


000012 










10. 




; ITERATION COUNT * 


2442 


012702 


012714 










ATAA 




;SCOPE ENTRY POINT * 


2443 




000042 










X=X+1 




; « 


2444 












>»* 




**♦**♦************♦♦♦**********♦**♦***♦♦****♦********#♦♦****» 


2445 










•TEST 


THAT TRANSMITTER IS ABLE 


TO INTERRUPT. IF THE INTERRUPT IS SERVICED, 


2446 










:IT WILL HAVE OCCURRED AT THE 


CORRECT VECTOR. 


2447 


012704 


004737 


003516 








USR 


7,0VRLAY 


;G0 TO OVER LAY ROUTINE 


2448 


012710 


104007 










STTXV 




•,SET TX INTERRUPT SERVICE 


2449 


012712 


01 2750 










ATAC 




;T0 ATAC 


2450 


012714 


042777 


000100 


166472 


ATAA: 




BIC 


#BIT6,@TXCSR 


;DISABLE TX INTERRUPT 


2451 


012722 


005037 


177776 








CLR 


PSW 


;SET PROCESSOR PRIORITY TO 


2452 


012726 


052777 


000100 


166460 






BIS 


(fBIT6,@TXCSR 


•.ENABLE TX INTERRUPT 


2453 


012734 


000240 










NOP 






2454 


012736 


104003 










ERROR 




; READY DID NOT CAUSE AN INTERRUPT 


2455 


012740 


042777 


000100 


166446 






BIC 


#BIT6,@TXCSR 




2456 


012746 


104012 






ATAB: 




SCOPE 




; SCOPE 


2457 


012750 


042777 


000100 


166436 


ATAC: 




BIC 


#BIT6,<PTXCSR 


;HERE IF INT, DISABLE TX INT 


2458 


012756 


022626 










P0PSP2 






2459 


012760 


000772 










BR 


ATAB 




2460 


012762 












TSTA 


1000. .AUA.CD 




2461 


012762 












TSTAA 


AUA , 1 000 . , \X+1 +CD , \X+2 . \X+1 


2462 










; 






♦♦*♦*♦***♦***♦**♦****♦***♦*♦*♦*******♦*♦♦*♦♦**♦*♦»♦♦•♦♦♦♦♦♦♦♦♦♦♦♦* 


2463 


012762 


100043 






AT43: 




100043 




•.TEST NUMBER * 


2464 


012764 


01 3040 










AT44 




;ADDRESS OF NEXT TEST * 


2465 


012766 


001750 










1000. 




; ITERATION COUNT * 


2466 


012770 


01 2776 










AUAA 




;SCOPE ENTRY POINT * 


2467 




000043 










X = X+1 




; * 


2468 












** 






2469 










•TEST 


THAT READY DOES NOT CAUSE AN INTERRUPT WHEN THE PROCESSOR IS 


2470 










:AT the 


SAME PRIORITY AS The TRANSMITTER INTERRUPT REQUEST LEVEL 


2471 


012772 


104007 










STTXV 




•.SET TX INTERRUPT SERVICE TO 


2472 


012774 


01 3032 










AUAC 






2473 


012776 


01 3737 


001426 


1 77776 


auaa: 




MOV 


TXLVL,PSW 


;SET PROCESSOR PRIORITY SAME AS TX PRIORITY 


2474 


013004 


042777 


000100 


166402 






BIC 


#BIT6,i>TXCSR 




2475 


013012 


052777 


000100 


166374 






BIS 


#BIT6,®TXCSR 


•.ENABLE VX INTERRUPTS 


2476 


013020 


000240 










NOP 






2477 


013022 


042777 


000100 


166364 


AUAB: 




BIC 


#BIT6,f>TXCSR 


•,0K IF NO INTERRUPT OCCURS. DISABLE INTERRUPTS 


2478 


013030 


104012 










SCOPE 




; SCOPE 


2479 


013032 


022626 






AUAC: 




P0PSP2 




;HERE IF INTERRUPT OCCURS. POP STOCK TWICE 


2480 


013034 


104003 










ERROR 




•,TX INTERRUPTED WITH PROCESSOR AT SAME 


2481 


013036 


000771 










BR 


AUAB 


; PRIORITY AS THE TRANSMITTER 


2482 


013040 












TSTA 


10. .AVA.CD 




2483 


013040 












TSTAA 


AVA.IO. .\X+1+CD,\X+2.\X+1 


2484 










; **** 










2485 


013040 


100044 






AT44: 




100044 




jTEST NUMBER « 



.MAIN. 


MACY1 1 


30A( 1052) 


30-MAR-78 08:52 PAGE 47 




SEO 


CZDLAG. 


P11 30-MAR-78 


08:51 












2486 


013042 


01 3124 








AT45 




ADDRESS OF NEXT TEST * 


2487 


013044 


000012 








10. 




ITERATION COUNT * 


2488 


013046 


01 3054 








AVAA 




SCOPE ENTRY POINT ♦ 


2489 




000044 








X = X+1 




« 


2490 














^mt^********************************************************!******** 


2491 










•TEST 


THAT TRANSMITTER INTERRUPTS WHEN PROCESSOR IS AT PRIORITY ONE LEVEL 


2492 










; LOWER 


THAN THE 


TRANSMITTER INTERRUPT PRIORITY. 


2493 


013050 


104007 








STTXV 


;SET TX INTERRUPT SERVICE TO AVAB 


2494 


013052 


013112 








AVAB 






2495 


013054 


042777 


000100 


166332 


AVAA: 


BIC 


#BIT6,@TXCSR 


DISABLE TX INTERRUPTS 


2496 


013062 


01 3737 


001426 


177776 




MOV 


TXLVL, PSW 


SET PROCESSOR PRIORITY TO ONE LEVEL 


2497 


013070 


162737 


000040 


177776 




SUB 


#40. PSW 


LOWER THAN TX PRIORITY 


2498 


013076 


052777 


000100 


166310 




BIS 


#BIT6,@TXCSR 


ENABLE TX INTERRUPTS 


2499 


013104 


000240 








NOP 






2500 


013106 


104003 








ERROR 




TX FAILED TO INTERRUPT 


2501 


013110 


000401 








BR 


AVAC 




2502 


0131 12 


022626 






AVAB: 


P0PSP2 




HERE IF INTERRUPT OCCURS. POP STOCK TWICE 


2503 


0131 14 


042777 


000100 


166272 


AVAC: 


BIC 


#BIT6,@TXCSR 


DISABLE TX INTERRUPTS 


2504 


013122 


104012 








SCOPE 




SCOPE 


2505 


013124 










TSTA 


100. .AWA.CD 




2506 


013124 










TSTAA 


AWA.IOO. ,\)-1+CD,\X+2.\X+1 


2507 












^t^Htrti^n,^Li^^*^,****if************************************ ************** 


2508 


013124 


100045 






AT45: 


100045 




TEST NUMBER * 


2509 


013126 


01 3222 








AT46 




ADDRESS OF NEXT TEST ♦ 


2510 


013130 


000144 








100. 




ITERATION COUNT ♦ 


251 1 


013132 


013134 








AWAA 




SCOPE E-ITRY POINT * 


2512 




000045 








X = X+1 




» 


2513 










;***♦* 




^Hi0^c^,^t^:,f******************************************** ******** ****** 


2514 










;TEST 


THAT TRANSMITTER DOES NOT REINTERRUPT AFTER THE INITIAL INTERRUPT HAS 


2515 










;OCCURRED AND HAS BEEN SERVICED. 




2516 


013134 


104007 






AWAA: 


STTXV 




SET TX INTERRUPT SERVICE TO AWAC 


2517 


013136 


01 3174 








AWAC 






2518 


013140 


042777 


000100 


166246 




BIC 


#BIT6,§>TXCSR 


DISABLE TX INTERRUPTS 


2519 


013146 


005037 


177776 






CLR 


PSW 


SET PROCESSOR PRIORITY TO 


2520 


013152 


052777 


000100 


166234 




BIS 


/I'BITB.^TXCSR 


ENABLE TX INTERRUPTS 


2521 


013160 


000240 








NOP 






2522 


013162 


104003 








ERROR 




TRANSMITTER FAILED TO INTERRUPT 


2523 


013164 


042777 


000100 


166222 


AWAB: 


BIC 


#BIT6.@TXCSR 


DISABLE TX INTERRUPTS 


2524 


013172 


104012 








SCOPE 




SCOPE 


2525 


013174 


01 2777 


013214 


166222 


AWAC: 


MOV 


#AWAE,(i!TXVTR 


HERE IF INTERRUPT OCCURS. CHANGE EXIT 


2526 


013202 


01 2716 


013210 






MOV 


#AWAD.@%6 ; POINTER TO AWAD AND EXIT INTERRUPT 


2527 


013206 


000002 








RTI 






2528 


013210 


000240 






AWAD: 


NOP 




OK IF NO INTERRUPT REOCCURS. 


2529 


013212 


000764 








BR 


AWAB 




2530 


013214 


022626 






AWAE: 


P0PSP2 




HERE IF INTERRUPT REOCCURS 


2531 


013216 


104003 








ERROR 




TX REINTERRUPTED AFTER RTI 


2532 


013220 


000761 








BR 


AWAB 




2533 


013222 










TSTA 


10. .AXA.CD 




2534 


013222 










TSTAA 


AXA.IO. ,\X+1+CD.\X+2,\X+1 


2535 










• *ilf,iiitiit,m*****y¥***********0>»*'i^*'^*** ************** 


2536 


013222 


100046 






AT46: 


100046 




TEST NUMBER * 


2537 


013224 


013306 








AT47 




ADDRESS OF NEXT TEST * 


2538 


013226 


000012 








10. 




ITERATION COUNT * 


2539 


013230 


013246 








AXAA 


; SCOPE ENTRY POINT * 


2540 




000046 








X=X+1 




« 


2541 
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2542 










:TEST 


THAT RECEIVER DONE Bl f IS 


ABLE TO INTERRUPT. IF THE INTERRUPT IS 


2543 










;SERVICED IT WILL HAVE OCCURRED 


AT THE CORRECT VECTOR. 


2544 


013232 


004737 


003516 






dSR 


7,0VRLAY 




•GO TO OVERLAY ROUTINE 


2545 


013236 


104006 








STRXV 






;SET RX INTERRUPT SERIVCE TO AXAB 


2546 


013240 


01 3274 








AXAB 








2547 


013242 


004737 


014404 






dSR 


%7,STRXD 




;SET RX uONE BIT 


2548 


013246 


042777 


000100 


166134 


AXAA : 


BIC 


#BIT6,@RXCSR 




;DISABLE RX INTERRUPTS 


2549 


013254 


005037 


177776 






CLR 


PSW 




;SET PROCESSOR PRIORITY TO 


2550 


013260 


052777 


000100 


166122 




BIS 


#BIT6,@RXCSR 




; ENABLE RX INTERRUPTS 


2551 


013266 


000240 








NOP 








2552 


013270 


104003 








ERROR 






•RX FAILED TO INTERRUPT 


2553 


013272 


000401 








BR 


AXAC 






2554 


013274 


022626 






AXAB: 


P0PSP2 






•HERE IF INTERRUPT OCCURS 


2555 


013276 


042777 


000100 


166104 


AXAC: 


BIC 


)yBIT6,®RXCSR 




DISABLE INT EN 


2556 


013304 


104012 








SCOPE 




; SCOPE 


2557 


01330^ 










TSTA 


10. ,AX1 ,0 






2558 


013306 










TSTAA 


AX1 ,10. ,\X+1+0,\X+2,\X+1 


2559 


















2560 


013306 


000047 






AT47: 


47 






TEST NUMBER * 


2561 


013310 


01 3370 








AT50 






ADDRESS OF NEXT TEST ♦ 


2562 


013312 


000012 








10. 






ITERATION COUNT * 


2563 


013314 


01 3326 








AXIA 




;SCOPE ENTRY POINT * 


2564 




000047 








X = X+1 






* 


2565 












m 4i « * itt « !ti « iK 






2566 










•TEST 


THAT MODEM INTERRUPT BIT 


IS ABLE TO INTERRUPT. IF THE INTERRUPT IS 


2567 










■.SERVICED IT WILL HAVE OCCURRED 


AT THE CORRECT VECTOR. 


2568 


013316 


004737 


003516 






JSR 


7,0VRLAY 


;G0 TO OVERLAY ROUTINE 


2569 


013322 


104006 








STRXV 




;SET RX INTERRUPT SERIVCE TO AXAB 


2570 


013324 


01 3356 








AX1B 








2571 


01 3326 


042777 


000044 


166054 


AXIA: 


BIC 


#44,@RXCSR 


;DISABLE MODEM INTERRUPTS 


2572 


013334 


005037 


177776 






CLR 


PSW 




SET PROCESSOR PRIORITY TO 


2573 


013340 


052777 


000044 


166042 




BIS 


#44,@RXCSR 


lENABLE MODEM I NTERRUPTS , RQ TO SND 


2574 


013346 


104016 








DELAY 








2575 


013350 


000005 








5. 








2576 


013352 


104003 








ERROR 






MODEM FAILED TO INTERRUPT 


2577 


013354 


000401 








BR 


AX1C 






2578 


013356 


022626 






AX1 B: 


P0PSP2 




;HERE IF INTERRUPT OCCURS 


2579 


013360 


042777 


000040 


166022 


AX1C: 


BIC 


#BIT5,@RXCSR 




DISABLE INT EN 


2530 


013366 


104012 








SCOPE 








2581 


013370 










TSTA 


1000. , AYA.CD 






2582 


013370 










TSTAA 


AYA.IOOO. ,\X+1+CD,\X+2,\X+1 


2583 


















2584 


013370 


100050 






AT50: 


100050 






TEST NUMBER * 


2585 


01 3372 


01 3452 








AT51 






ADDRESS OF NEXT TEST * 


2586 


013374 


001750 








1000. 






ITERATION COUNT » 


2587 


013376 


01 3410 








AYAA 






SCOPE ENTRY POINT * 


2588 




000050 








X = X+1 








2589 
















2590 










•TEST 


THAT RECEIVER DONE BIT DOES NOT CAUSE AN INTERRUPT WHEN THE PROCESSOR 


2591 










;IS AT 


THE SAME 


PRIORITY LEVEL 


AS THE RECEIVER INTERRUPT REQUEST LEVEL 


2592 


013400 


104006 








STRXV 




;SET RX INTERRUPT SERVICE TO AYAC 


2593 


013402 


01 3444 








AYAC 








2594 


013404 


004737 


014404 






JSR 


%7,STRXD 




SET RX DONE BIT 


2595 


013410 


042777 


000100 


165772 


AYAA: 


BIC 


#BIT6,@RXCSR 




DISABLE RX INTERRUPTS 


2596 


013416 


013737 


001422 


177776 




MOV 


RXLVL.PSW 




SET PROCESSOR PRIORITY SAME AS RECEIVER'S 


2597 


013424 


052777 


000100 


165756 




BIS 


#BIT6,®RXCSR 




ENABLE RX INTERRUPTS 
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SEQ 0049 



2598 


013432 


000240 








NOP 






2599 


013434 


042777 


000100 


165746 


AYAB: 


BIC 


#BIT6,@RXCSR 


;0K IF NO INTERRUPT. DISABLE RX INTERRUPTS 


2600 


013442 


104012 








SCOPE 




•.SCOPE 


2601 


013444 


022626 






AYAC: 


P0PSP2 




;HERE IF INTERRUPT OCCURS. POP STOCK TWICE 


2602 


013446 


104003 








ERROR 




;RX INTERRUPTED WITH PROCESOR AT SAME 


2603 


013450 


000771 








BR 


AYAB 


;PRIORITY AS THE RECEIVER 


2604 


013452 










TSTA 


10. .AZA.CD 




2605 


013452 










TSTAA 


AZA.IO. ,\X+1+CD,\X+2,\X+1 


2606 










; **** 




* Kt « 41 4> * 4> * >«> >» « * * >«< 




2607 


013452 


100051 






AT51 : 


100051 




;TEST NUMBER * 


2608 


013454 


01 3542 








AT52 




;ADDRESS OF NEXT TEST * 


2609 


013456 


000012 








10. 




•.ITERATION COUNT * 


2610 


013460 


01 3472 








AZAA 




;SCOPE ENTRY POINT * 


261 1 




000051 








X = X+1 




; * 


2612 














Dc * « >|t IX 4c * it * »< 4i « * 


>tr^^,t,*i^rl,if^^4:**,tiil,4:**********'^****>t>*<¥***** ********** ***ltl 


2613 










;TEST 


THAT RECEIVER DONE BIT 


CAUSES INTERRUPT WHEN PROCESSOR IS AT PRIORITY 


2614 










;ONE 


LEVEL LOWER THAN THE RECEIVER'S INTERRUPT REQUEST LEVEL 


2615 


013462 


104006 








STRXV 




;SET RX INTERRUPT TO AZAB 


2616 


013464 


01 3530 








AZAB 






2617 


013466 


004737 


014404 






JSR 


%7,STRXD 


'.SET RX DONE BIT 


2618 


013472 


042777 


000100 


165710 


AZAA: 


BIC 


#BIT6,@RXCSR 


;DISABLE RX INTERRUPTS 


2619 


013500 


01 3737 


001422 


177776 




MOV 


RXLVL.PSW 


;SET PROCESSOR PRIORITY ONE LEVEL 


2620 


013506 


162737 


000040 


177776 




SUB 


#40, PSW 


; LOWER THAN RECEIVER'S PRIORITY 


2621 


013514 


052777 


000100 


165666 




BIS 


#BIT6,@RXCSR 


;ENABLE RX INTERRUPTS 


2622 


013522 


000240 








NOP 






2623 


013524 


104003 








ERROR 




;RX FAILED TO INTERRUPT WITH PROCESSOR AT 


2624 


013526 


000401 








BR 


AZAC 


; PRIORITY ONE LEVEL LOWER THAN RECEIVER'S 


2625 


013530 


022626 






AZAB: 


P0PSP2 




;HERE IF INTERRUPT OCCURS 


2626 


013532 


042777 


000100 


165650 


AZAC: 


BIC 


)fBIT6,f>RXCSR 


JDISABLE RX INTERRUPTS 


2627 


013540 


104012 








SCOPE 




; SCOPE 


2628 


013542 










TSTA 


100. ,AAB,CD 




2629 


013542 










TSTAA 


AAB, 100. ,\X+1+CD,\X+2.\X+1 


2630 










; ♦*** 






***^*************** «.*********************** ********* 


2631 


013542 


100052 






AT52: 


100052 




;TEST NUMBER * 


2632 


013544 


01 3640 








AT53 




;ADDRESS OF NEXT TEST * 


2633 


013546 


000144 








100. 




; ITERATION COUNT * 


2634 


013550 


01 3556 








AABA 




;SCOPE ENTRY POINT « 


2635 




000052 








X = X+1 




; * 


2636 










; «**♦ 






***,ti^:i^*if ******************** *********************«tlt** 


2637 










;TEST 


THAT RECEIVER DOES NOT 


INTERRUPT AFTER THE INITIAL INTERRUPT HAS 


2638 










JOCCURED AND DONE BIT HAS NjT 


BEEN CLEARED 


2639 


013552 


004737 


014404 






JSR 


%7,STRXD 


;SET RX DONE BIT 


2640 


013556 


104006 






AABA: 


STRXV 




;SET RX INTERRUPT SERVICE TO AABC 


2641 


013560 


01 3612 








AABC 






2642 


013562 


042777 


000100 


165620 




BIC 


#BIT6,®RXCSR 


;DISABLE RX INTERRUPTS 


2643 


013570 


052777 


000100 


165612 




BIS 


#BIT6,@RXCSR 


; ENABLE ;<X INTERRUPTS 


2644 


013576 


000240 








NOP 






2645 


013600 


104003 








ERROR 




;RX FAILED TO INTERRUPT 


2646 


013602 


042777 


000100 


165600 


AABB: 


BIC 


#BIT6,@RXCSR 


JDISABLE RX INTERRUPTS 


2647 


013610 


104012 








SCOPE 




; SCOPE 


2648 


013612 


01 2777 


013632 


165600 


AABC: 


MOV 


#AABE,®RXVTR 


;HERE IF INTERRUPT OCCURS. CHANGE SERVICE TO 


2649 


013620 


012716 


013626 






MOV 


#AABD.#%6 


;AABE. SET EXIT POINTER TO AABD 


2650 


013624 


000002 








RTI 




;EXIT INTERRUPT SERVICE 


2651 


013626 


000240 






AABD: 


NOP 




;0K IF NO INTERRUPT REOCCURS 


2652 


013630 


000764 








BR 


AABB 




2653 


013632 


022626 






AABE: 


P0PSP2 




;HERE IF INTERRUPT REOCCURS 



.MAIN. MACY1 1 30A(1052) 30-MAR-78 08:52 PAGE 50 

C2DLAG.P11 30-MAR-78 08:51 



SEQ OOSO 



2654 


1 3634 


1 04003 








ERROR 




;RX REINTERRUPTED AFTER RTI 


2655 


01 3636 


000761 








BR 


AABB 




2656 


01 3640 










TSTA 


100. .ABB. CD 




2657 












TSTAA 


ABB.IOO. ,\X+1+CD,\X+2.\X+1 












; **** 


********************************************:ti* ************ *0**0***0tii,^***^*** 


2659 


1 »3o4U 


100053 






AT53: 


100053 




;TEST NUMBER * 




1 3642 


01 3700 








AT54 




; ADDRESS OF NEXT TEST * 


266? 




nnm /ia 

UU w 1 H*t 








100. 




; ITERATION COUNT * 


2662 


1 3646 


01 3650 








ABBA 




•.SCOPE ENTRY POINT * 














XsX+1 




; * 


2664 










I **tt#***rt:*,lf*:^**i^* ******************** *******^ 


2665 










;TEST 


THAT READING RXCSR DOES 


NOT CLEAR DONE BIT (RXCSR BIT 7 ) 


2666 


1 3650 


004737 


01 4404 




abba: 


JSR 


X7,STRXD 


;SET RX DONE BIT 


2667 




01 7737 


1 65530 


001606 




MOV 


@RXCSR,RXCSRT 


'.SAVE CONTENT OF RXCSR 


2668 


01 3662 


1 05777 


1 65522 






TSTB 


©RXCSR 


;SEE IF DONE BIT IS CLEAR 


2669 


U 1 iJODO 


1 00401 








BMI 


ABBB 


; BRANCH IF DONE BIT IS NOT CLEAR 


2670 


1 3670 


1 04003 








ERROR 






2671 


01 3672 


005777 


1 65514 




ABBB: 


TST 


PRXBUF 


JCLEAR DONE BIT IF SET 


2672 


01 3676 


1 0401 2 








SCOPE 




; SCOPE 


2673 


01 3700 










TSTA 


100. .ACB.CD 




2674 


01 3700 










TSTAA 


ACB.IOO. ,\Xt-1+CD,\X+2,\X+1 


2675 










•************************#*********************** *****0*********i^0*1IH**^f^H,^**^#ltt** 


2676 


01 3700 


1 00054 






AT54: 


100054 




;TEST NUMBER * 


2677 


01 3702 


01 3764 








AT55 




; ADDRESS OF NEXT TEST ♦ 


2678 


1 3704 


0001 44 








100. 




; ITERATION COUNT * 


2679 


01 3706 


01 37 1 4 








ACBA 




; SCOPE E.-^TRY POINT * 


2680 




000054 








X=X+1 




; « 


2681 










; **** 


*************************** *********************************i**ilt**ilKlf*,#**4t^i**4i 


2682 










;TEST 


THAT DONE 


CAN CAUSE INT 


WITH ERROR SET 


2683 


01 371 


1 04006 








STRXV 




;SET RX INTERRUPT SERVICE TO ACBB. 


2684 


1 37 1 2 


01 3752 








ACBB 






2685 


01 3714 


004737 


014404 




ACBA: 


USR 


%7.STRXD 


;SET RX DONE BIT 


2686 




004737 


1 4404 






JSR 


%7,STRXD 


;SET RX DATA OFLOW 


2687 


01 3724 


042777 


0001 00 


165456 




BIC 


#BIT6,@RXCSR 


;DISABLE RX INTERRUPTS 


2688 


01 3732 


005037 


1 77776 






CLR 


PSW 


;SET PROCESSOR PRIORITY TO 


2689 


01 3736 


052777 


000100 


165444 




BIS 


#BIT6.i>RXCSR 


•.ENABLE RX INTERRUPTS 


2690 


01 3744 


000240 








NOP 






2691 


01 3746 


1 04003 








ERROR 




;RX DONE FAILED TO CAUSE INTERRUPT 






nn n^n i 

UW U*4U 1 








BR 


ACBC 




2693 


01 3752 


022626 






ACBB: 


P0PSP2 




;HERE IF INTERRUPT OCCURS. POP STOCK TWICE 


2694 


01 3754 


042777 


000100 


165426 


ACBC: 


BIC 


#BIT6. ©RXCSR 




2695 


01 3762 


10401 2 








SCOPE 






2696 


01 3764 










TSTA 


3. .ADD. CD 




2697 


013764 










TSTAA 


ADD. 3. .\X+1+CD.\X+2.\X+1 


2698 










'***************************** 


********* ****^************************************,f 


2699 


013764 


100055 






AT55: 


100055 




;TEST NUMBER * 


2700 


013766 


014006 








AT56 




; ADDRESS OF NEXT TEST * 


2701 


013770 


000003 








3. 




•.ITERATION COUNT * 


2702 


013772 


014000 








ADDA 




; SCOPE ENTRY POINT * 


2703 




000055 








X=X+1 




; « 


2704 










• ************** 


*************** 


*************************** *******1Hi*****i^^t$*il,*ti^**i^ 


2705 










JDATA 


TEST USING NORMAL CONFIGURATION 


2706 


013774 


004737 


002706 






JSR 


%7,CDINIT 


UNIT IF C-D DEVICE 


2707 


014000 


004537 


004770 




ADDA: 


JSR 


S.DATTST 




2708 


014004 


104012 








SCOPE 






2709 


014006 










TSTA 


3. ,APB,0 
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2710 


014006 










TSTAA 


APB.3. ,\X+1+0,\X+2.\X+1 


271 1 










; **** 


*************************** 1,*****^^*** ****** ******************************** 


2712 


014006 


000056 






AT56: 


56 




;TEST NUMBER * 


2713 


014010 


014100 








AT57 




; ADDRESS OF NEXT TEST * 


2714 


014012 


000003 








3. 




; ITERATION COUNT * 


2715 


014014 


014022 








APBA 




; SCOPE ENTRY POINT * 


2716 




000056 








X = X+1 




; * 


2717 










; **** 


********** 


************** 


*********i^:f ***************************************** 


2718 










;DATA 


TEST USING JUMPER CONNECTOR. 


2719 










;USES 


SPECIAL BINARY COUNT PATTERN FOR DATA. NO INTERRUPT. 


2720 


014016 


004737 


004322 






JSR 


7,INBIN 


; INITIALIZE BINARY COUNT PATTERN 


2721 


014022 


012737 


001750 


001564 


apba: 


MOV 


#1000. ,CTRO 


;SET CHARACTER COUNT TO 1000 


2722 


014030 


104020 






APBB: 


TIMETX 




;TIME OUT TX DONE 


2723 


014032 


104003 








ERROR 




•.ERROR DONE NOT SETTING 


2724 


014034 


004737 


004426 






JSR 


7.GTBINP 


;GET BINARY CHARACTER 


2725 


014040 


110137 


001560 






MOVB 


%1 .CRBUFA 


;SAVE CHAR IN CRBUFA AND 


2726 


014044 


004737 


005374 






JSR 


7,MASKIT 


•.MASK OFF NON TRANSMITTED BITS 


2727 


014050 


110177 


165342 






MOVB 


%1 .©TXBUF 


;LOAD CHAR. 


2728 


014054 


104017 








TIMERX 




;TIME OUT RX DONE 


2729 


014056 


104003 








ERROR 




; ERROR DONE NOT SETTING 


2730 


014060 


11 7737 


165326 


001556 




MOVB 


©RXBUF.CRBUF 


•.LOAD RECEIVED DATA INTO CRBUF 


2731 


014066 


104004 








DATCHK 




•.CHECK DATA 


2732 


014070 


005337 


001564 






DEC 


CTRO 


•.TESTED 1000 CHARACTERS 


2733 


014074 


001355 








BNE 


APBB 


; BRANCH IF NOT 


2734 


014076 


104012 








SCOPE 




;YES. SCOPE 


2735 


014100 










TSTA 


3. .EXT.O 




2736 


014100 










TSTAA 


EXT, 3. ,\X+1+0,\X+2.\X+1 


2737 










• ************************!!,* ****4L* *************************************** i.******** 


2738 


014100 


000057 






AT57: 


57 




;TEST NUMBER * 


2739 


014102 


014164 








AT60 




•.ADDRESS OF NEXT TEST * 


2740 


014104 


000003 








3. 




; ITERATION COUNT * 


2741 


014106 


0141 10 








EXTA 




; SCOPE ENTRY POINT ♦ 


2742 




000057 








X=X+1 




; ♦ 


2743 










* ****** 0** ******** *it,****^,0*** **^,* ******** **^*****^,*****^***^^*H,****tf************** 


2744 


















2745 










;TEST 


THAT RDR 


BUSY TURNS OFF 


RDR ENABLE 


2746 










;WHEN 


RUN ON AN 


XOR TESTER 




2747 


0141 10 


000005 






EXT a: 


RESET 




•.RESET 


2748 


0141 12 


005277 


165272 






INC 


fRXCSR 


;SET RDR ENABLE. SEE IF RDE IS TURNED OFF BY RDR BUSY 


2749 


014116 


012737 


177770 


014154 




MOV 


iS>-10.3$+2 




2750 


014124 


005237 


014154 




2$: 


INC 


3$+2 


;WAIT LOOP FOR XOR TESTER 


2751 


014130 


001375 








BNE 


2$ 




2752 


014132 


005077 


165260 






CLR 


©TXBUF 


•.SHIP OUT CHAR. 


2753 


014136 


012737 


130000 


014154 




MOV 


#-50000. 3$+2 




2754 


014144 


105777 


165240 




5$: 


TSTB 


fRXCSR 


JTEST COMPLETE 


2755 


014150 


100404 








BMI 


6$ 




2756 


014152 


005227 


177770 




3$: 


INC 


#-10 


; ALLOW TIME FOR RDR DONE TO SET 


2757 


014156 


001372 








BNE 


5$ 




2758 


014160 


104003 








ERROR 




•.FAILURE OF RDR DONE TO SET 


2759 


014162 


104012 






6$: 


SCOPE 






2760 


014164 










TSTA 


10. , EX.0 




2761 


014164 










TSTAA 


EX.IO. ,\X+1+0,\X+2.\X+1 


2762 










' ************************0*****0*****i,*****0,if****************i),******************* 


2763 


014164 


000060 






AT60: 


60 




;TEST NUMBER * 


2764 


014166 


014234 








AT61 




; ADDRESS OF NEXT TEST * 


2765 


014170 


000012 








10. 




•.ITERATION COUNT * 
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SEQ Q0B2 



2766 


014172 


014174 




2767 




000060 




2768 








2769 








2770 








2771 


014174 


000005 




2772 


014176 


004737 


014404 


2773 


014202 


005277 


165202 


2774 


014206 


105777 


165176 


2775 


014212 


100001 




2776 


014214 


104003 




2777 


014216 


012737 


177770 


2778 


014224 


005227 


177770 


2779 


014230 


001375 




2780 


014232 


104012 




2781 


014234 






2782 


014234 






2783 








2784 


014234 


000061 




2785 


014236 


014270 




2786 


014240 


000003 




2787 


014242 


014244 




2788 




000061 




2789 








2790 


014244 


005737 


002016 


2791 


014250 


100006 




2792 


014252 


012777 


177777 


2793 


014260 


005777 


165124 


2794 


014264 


000005 




2795 


014266 


104012 




2796 


014270 






2797 


014270 






2798 








2799 


014270 


000062 




2800 


014272 


014324 




2801 


014274 


000003 




2802 


014276 


014300 




2803 




000062 




2804 








2805 


014300 


005737 


002016 


2806 


014304 


100006 




2807 


014306 


012777 


177677 


2808 


014314 


005777 


165074 


2809 


014320 


000005 




2810 


014322 


104012 




281 1 


014324 






2812 








2813 


014324 


100063 




2814 


014326 


177777 




2815 


014330 


000012 




2816 


014332 


014334 




2817 




000063 




2818 








2819 








2820 








2821 


014334 


004737 


002706 



014226 1$: 




; SCOPE ENTRY POINT 



SET THAT THE 



;SET RCVR DONE 

;SET ENABLE 

;DONE SHOULD CLEAR 



•.WAIT 100MIC. 



\X+1+0,\X+2,\X+1 




AT6 
3. 



;TEST NUMBER 
; ADDRESS OF NEXT TE 
; ITERATION COUNT 
; SCOPE ENTRY POINT 

; 



EXBA: 



MOV 
TST 
RESET 



#1 77677, ©TXCSR 
@TXCSR 



.10. AX+I+CD. LAST,\X+ 



100063 
ATLAST 
10. 



;TEST NUMBER 

; ADDRESS OF NEXT TEST 

; ITERATION COUNT 



;TEST THAT WHEN TXCSR BIT IS SET THAT THE OUTPUT DATA LINE 
;IS PULLED TO A SPACE. 



;INIT IF C-D DEVICE 
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SEQ 0053 



2822 
2823 
2824 
2825 
2826 
2827 
2828 
2829 
2830 
2831 



014340 
014346 
014354 
014362 
014364 
014366 
014374 
014376 
014400 
014402 



052777 
052777 
012777 
104017 
104003 
127727 
001401 
104003 
104011 
104012 



000004 
000001 
000252 



165046 
165040 
165034 



165020 000000 



BIS 
BIS 
MOV 

TIMERX 

ERROR 

CMPB 

BEO 

ERROR 

SRESET 

SCOPE 



#BIT2,@>TXCSR 
#BITO,®".XCSR 
#252,@TXBUF 



@RXBUF,#0 
.+4 



;SET MAINTENANCE BIT IN TXCSR 

;SET BREAK BIT 

;LOAD BUFFER 

;TIME OUT RX DONE 

; ERROR DONE NOT SETTING 

{CHARACTER RECEIVED SHOULD BE 

; CHARACTER OTHER THAN 
; ISSUE RESET 
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SEQ 00S4 



2832 










•SUBROUTINE TO 


2833 










2834 


014404 


052777 


000004 


165002 


STRXD: 


BIS 


2835 


014412 


005077 


165000 






CLR 


2836 


014416 


104017 








TIMERX 


2837 


014420 


104003 








ERROR 


2838 


014422 


000207 








RTS 


2839 










;SUBRQUTINE TO 


2840 


014424 


023737 


001564 


001 566 


CMPT: 


CMP 


2841 


014432 


101430 








BLOS 


2842 


014434 


023737 


001566 


001570 




CMP 


2843 


014442 


101424 








BLOS 


2844 


01 4444 


023737 


001 570 


001 572 




CMP 


2845 


014452 


101420 








BLOS 


2846 


014454 


023737 


001572 


001574 




CMP 


2847 


014462 


101414 








BLOS 


2848 


014464 


023737 


001574 


001576 




CMP 


2849 


014472 


101410 








BLOS 


2850 


014474 


023737 


001576 


001600 




CMP 


2851 


014502 


101404 








BLOS 


2852 


014504 


023737 


001600 


001602 




CMP 


2853 


014512 


101002 








BHI 


2854 


014514 


062716 


000002 




CMPTNG: 


ADD 


2855 


014520 


000207 






cmptok: 


RTS 



SET RXCSR DONE BIT. 

#BIT2.@TXCSR ;SET MAINTENANCE BIT. 

©TXBUF ;LOAD TXBUF. 

JTIME OUT TX DONE 

; ERROR DONE NOT SETTING 

%7 ;EXIT. 
CHECK THAT CTRO THROUGH CTR3 CONTAIN DESCENDING VALUES. 

CTRO.CTRI 

CMPTNG 

CTR1 ,CTR2 

CMPTNG 

CTR2,CTR3 

CMPTNG 

CTR3,CTR4 

CMPTNG 

CTR4,CTR5 

CMPTNG 

CTR5.CTR6 

CMPTNG 

CTR6,CTR7 

CMPTOK 

%7 
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SEQ 00S5 



2856 


















2857 












**** 






2858 










;PRG1 - 


TRANSMITTER SCOPE LOOP 




2859 










•If***!** 


**** 






2860 


014522 


104000 






PRG1 : 


TYPE 




;TYPE PROGRAM TITLE. 


2861 


014524 


01 5632 








P1TIT 






2862 


014526 


004537 


004132 






JSR 


5,LINSLX 


;G0 GET LINE # FROM USER 


2863 


014532 


104000 








TYPE 




;TYPE SELECT CHAR AND DELAY. 


2864 


014534 


01 5727 








SELCAD 






2865 


014536 


004737 


003554 






JSR 


PC.RDOCT 


JREAD IN DATA. 


2866 


014542 


01 2637 


001622 






MOV 


(SP)+,TEMP2 


;STORE DATA. 


2867 


014546 


1 1 3737 


001622 


014570 


prgia: 


MOVB 


TEMP2, PRGIB 


;DELAY COUNT TO PRGIB. 


2868 


014554 


1 1 3777 


001623 


164634 




MOVB 


TEMP2+1 , ©TXBUF 


;LOAD TXBUF. 


2869 


014562 


105777 


164626 






TSTB 


©TXCSR 


;TEST FOR DONE. ; J+-iG 


2870 


014566 


104016 








DELAY 




•.DELAY # OF MSECS. SET AT SR. 


2871 


014570 


000000 






PRGIB: 


OPEN 






2872 


014572 


000765 








BR 


PRGIA 


; REPEAT. 


2873 












**** 






2874 










•PRG2 - 


RECEIVER SCOPE LOOP. 




2875 












**** 






2876 


014574 


104000 






PRG2: 


TYPE 




;TYPE PROGRAM TITLE. 


2877 


014576 


01 5672 








P2TIT 






2878 


014600 


004537 


004132 






JSR 


5,LINSLX 


;G0 GET LINE # FROM USER 


2879 


014604 


104000 








TYPE 




;TYPE SELECT CHAR AND DELAY. 


2880 


014606 


01 5727 








SELCAD 






2881 


014610 


004737 


003554 






JSR 


PC.RDOCT 


;READ IN DATA. 


2882 


014614 


01 2637 


001622 






MOV 


(SP)+,TEMP2 


;STORE DATA. 


2883 


014620 


052777 


000004 


164566 


PRG2A: 


BIS 


i4'BIT2,@TXCSR 


;SET MAINTENANCE BIT. 


2884 


014526 


1 1 3737 


001622 


014650 




MOVB 


TEMP2,PRG2B 


; DELAY COUNT TO PRG2B. 


2885 


014S34 


1 1 3777 


001623 


164554 




MOVB 


TEMP2+1 ,@TXBUF 


;LOAD TXBUF. 


2886 


014642 


105777 


164546 






TSTB 


©TXCSR 


;TEST FOR DONE ; ; ++G 


2887 


014646 


104016 








DELAY 




JDELAY # OF MSECS. SET IN SR. 


2888 


014650 


000000 






PRG2B: 


OPEN 






2889 


014652 


01 7700 


1 64534 






MOV 


@RXBUF,%0 


;RXBUF CONTENTS TO RO. 


2890 


014656 


000005 








RESET 




; DISPLAY CONTENTS OF RXBUF (IN RO) 


2891 


014660 


000005 








RESET 




;BY ISSUING 5 RESET INSTRUCTIONS 


2892 


014662 


000005 








RESET 






2893 


014664 


000005 








RESET 






2894 


014666 


000005 








RESET 






2895 


014670 


000753 








BR 


PRG2A 
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SEQ 00S6 



2896 


















2897 












**** 






2898 










;PRG3 - 


SINGLE 


CHARACTER MAINTENANCE MODE DATA TEST. 


2899 










;**♦•♦* 


**•* 






2900 


014672 


104000 






PRG3: 


TYPE 




;TYPE PROGRAM TITLE. 


2901 


014674 


01 6475 








P3TIT 






2902 


014676 


004537 


004132 






JSR 


5, LINSLX 


;G0 GET LINE ff FROM USER 


2903 


014702 


104000 








TYPE 




;TYPE: SELECT CHARACTER. 


2904 


014704 


016620 








SELCAR 






2905 


014706 


004737 


003554 






JSR 


PC.RDOCT 


;GET TEST CHAR AND DELAY FROM USER. 


2906 


014712 


01 2637 


001622 






MOV 


(SP)+,TEMP2 


;STORE TEST CHAR AND DELAY. 


2907 


014716 


113737 


001623 


001560 


PRG3A: 


MOVB 


TEMP2+1 .CRBUFA 


;MOVE DATA CHAR TO CRBUFA. 


2908 


014724 


004737 


014764 






JSR 


%7, MOUTIN 


;G0 OUTPUT. RECEIVE. AND CHECK DATA. 


2909 


014730 


000772 








BR 


PRG3A 




2910 












**** 






291 1 










;PRG4 - 


SPECIAL 


BINARY COUNT MAINTENANCE MODE DATA TEST. 


2912 












**** 






2913 


.014732 


104000 






PRG4: 


TYPE 




;TYPE PROGRAM TITLE. 


2914 


014734 


01 6545 








P4TIT 






2915 


014736 


004537 


004132 






JSR 


5, LINSLX 


;G0 GET LINE # FROM USER 


2916 


014742 


004737 


004322 






JSR 


%7,INBIN 


; INITIALIZE BINARY COUNT. 


2917 


014746 


004737 


004426 




PRG4A: 


JSR 


%7,GTBINP 


;GET BINARY CHARACTER. 


2918 


014752 


1 1 0137 


001560 






MOVB 


%1 , CRBUFA 


;SAVE AT CRBUFA. 


2919 


014756 


004737 


014764 






JSR 


%7, MOUTIN 


;G0 OUTPUT, RECEIVE, AND CHECK DATA. 


2920 


014762 


000771 








BR 


PRG4A 


; REPEAT. 


2921 










jSUBRDUTINE TO 


OUTPUT, RECEIVE, 


AND CHEC.-; DATA WITH MAINTENANCE BIT SET. 


2922 


014764 


032777 


000200 


163202 


MOUTIN: 


BIT 


#BIT7,@SRPTR 


;SEE IF BIT 7 IS SET. 


2923 


014772 


001001 








BNE 


.+4 


; BRANCH IF SET. 


2924 


1 4774 


1 04002 








STALL 




;SET. DO A RANDOM STALL. 


2925 


014776 


104020 








TIMETX 




;TIME OUT TX DONE 


2926 


015000 


104003 








ERROR 




; ERROR DONE NOT SETTING 


2927 


015002 


052777 


000004 


164404 




BIS 


#BIT2,@TXCSR 


;SET MAINTENANCE BIT. 


2928 


015010 


005777 


164376 






TST 


@RXBUF 


;CLR RX DONE 


2929 


015014 


01 3777 


001560 


164374 




MOV 


CRBUFA. ©TXBUF 


; LOAD TXBUF. 


2930 


015022 


004737 


005374 






JSR 


7,MASKIT 


;MASK OFF NON TRANSMITTED BITS 


2931 


015026 


104017 








TIMERX 




;TIME OUT RX DONE 


2932 


015030 


104003 








ERROR 




; ERROR DONE NOT SETTING 


2933 


015032 


01 7737 


164354 


001556 




MOV 


PRXBUF.CRBUF 


;MOVE CHAR IN RX BUFFER TO CRBUF. 


2934 


015040 


104004 








DATCHK 




; COMPARE EXPECTED AND RECEIVED DATA 


2935 


015042 


000207 








RTS 


%7 


;EXIT. 
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SEQ 00S7 



2936 
















2937 










;ASCn 


MESSAGES 




2938 
















2939 


015044 


042045 


030514 


026461 


MTIT: 


.ASCII 


'%DL11-E.C/D OFLNE TST - CZDLA-G%' 


2940 


015052 


026105 


027503 


0201 04 








2941 


015060 


0431 17 


0471 14 


0201 05 








2942 


015066 


051524 


020124 


020055 








2943 


015074 


055103 


046104 


026501 








2944 


0151 02 


022507 












2945 


0151 04 


046445 


050101 


047440 




.ASCII 


•%MAP OF DEVICES PRESENT%®' 


2946 


015112 


020106 


042504 


044526 








2947 


015120 


042503 


020123 


051 120 








2948 


015126 


051505 


047105 


022524 








2949 


0151 34 


100 












2950 


015135 


040 


020040 


020040 


MDEVAD: 


.ASCII 


• 5^@. 


2951 


015142 


020040 


020040 


020040 








2952 


015150 


020040 


022440 


100 








2953 


015155 


045 


054524 


042520 


PGMSG: 


.ASCII 


'%TYPE IN PROGRAM NUMBER @' 


2954 


015162 


044440 


0201 16 


051 120 








2955 


0151 70 


043517 


040522 


0201 15 








2956 


015176 


052516 


041115 


051 105 








2957 


015204 


020040 


020040 


1 00 








2958 


01521 1 


045 


047516 


042516 


MNONE: 


.ASCII 


'%NONE FOUND%®' 


2959 


015216 


043040 


052517 


0421 16 








2960 


015224 


040045 












2961 


015226 


052045 






EMO: 


.ASCII 


■XT' 


2962 


015230 


020040 


020040 


041520 


ATNUMB: 


.ASCII 


• PC= ' 


2963 


015236 


020075 












2964 


015240 


020040 


020040 


020040 


APC: 


.ASCII 


' RXCSR= ' 


2965 


015246 


020040 


054122 


051503 








2966 


015254 


036522 


040 










2967 


015257 


040 


020040 


020040 


MRXNUM: 


.ASCII 


1 @i 


2968 


015264 


020040 


040040 










2969 


015270 


022445 


051 120 


0301 07 


POTIT: 


.ASCII 


'%%PRGO - INPUT-OUTPUT LOGIC TESTS 


2970 


015276 


026440 


044440 


0501 16 








2971 


015304 


052125 


047455 


052125 








2972 


015312 


052520 


020124 


047514 








2973 


015320 


044507 


020103 


042524 








2974 


015326 


052123 


027123 


040 








2975 


015333 


045 


044504 


041523 




.ASCII 


'%DISCDNNECT DL11-E FROM MODEM' 


2976 


015340 


0471 17 


042516 


052103 








2977 


015346 


042040 


030514 


026461 








2978 


015354 


020105 


051 106 


046517 








2979 


015362 


046440 


0421 17 


046505 








2980 


015370 


040440 


0421 16 


041440 




.ASCII 


' AND CONNECT JUMPER TO CABLE. %@' 


2981 


015376 


0471 17 


042516 


052103 








2982 


015404 


045040 


046525 


042520 








2983 


015412 


020122 


047524 


041440 








2984 


015420 


041 101 


042514 


022456 








2985 


015426 


100 












2986 


015427 


124 


041530 


051 123 


ATXCSR: 


.ASCII 


•TXCSR S/B: ' 


2987 


015434 


051440 


041057 


020072 








2988 


015442 


020040 


020040 


020040 


ATXSB: 


.ASCII 


' was: • 


2989 


015450 


020040 


040527 


035123 








2990 


015456 


040 












2991 


015457 


040 


020040 


020040 


ATXWAS: 


.ASCII 
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SiQ OOSS 



2992 


01 


5464 


040040 












2993 





5466 


054122 


051503 


0201 22 


ARXCSR: 


.ASCI I 


'RXCSR S/BS ' 


2994 


01 


5474 


027523 


035102 


040 








2995 





5501 


040 


020040 


020040 


ARXSB: 


.ASCII 


' WAS: ' 


2996 


01 


5506 


020040 


053440 


051501 








2997 





5514 


020072 












2998 





5516 


020040 


020040 


020040 


ARXWAS: 


.ASCII 


• @« 


2999 





5524 


040040 












3000 





5526 


054124 


051440 


042520 


ETXTIM: 


.ASCII 


'TX SPEEDS NOT IN ASCENDING ORDER.®' 


3001 





5534 


042105 


020123 


047516 








3002 





5542 


020124 


0471 1 1 


040440 








3003 


01 


5550 


041523 


047105 


04450A 








3004 





5556 


043516 


047440 


0421 22 








3005 





5564 


051 105 


040056 










3006 





5570 


054122 


051440 


042520 


ERXTIM: 


.ASCII 


'RX SPEEDS NOT IN ASCENDING ORDER.®* 


3007 





5576 


042105 


020123 


047516 








3008 





5604 


020124 


0471 1 1 


040440 








3009 





5612 


041523 


047105 


044504 








3010 





5620 


043516 


047440 


0421 22 








301 1 





5626 


051 105 


040056 










3012 





5632 


022445 


051 120 


030507 


P1TIT: 


.ASCII 


•%%PRG1 - TRANSMITTER SCOPE LOOP®' 


3013 





5640 


026440 


052040 


040522 








3014 





5646 


051516 


044515 


0521 24 








3015 





5654 


051 105 


051440 


047503 








3016 





5662 


042520 


046040 


04751 7 








3017 





5670 


040120 












3018 





5672 


022445 


051 120 


031 1 07 


P2TIT: 


.ASCII 


%%PRG2 " RECEIVER SCOPE LOOP@' 


3019 





5700 


026440 


051 040 


041 505 








3020 





5706 


044505 


042526 


0201 22 








3021 





5714 


041523 


0501 1 7 


0201 05 








3022 





5722 


047514 


0501 17 


1 00 








3023 





5727 


045 


054524 


042520 


SELCAD: 


.ASCII 


'%TYPE TEST CHAR. CODE IN BITS 15-8»TYPE DELAY 


3024 





5734 


052040 


051505 


0201 24 








3025 





5742 


044103 


051 1 01 


020056 








3026 





5750 


047503 


042504 


044440 








3027 





5756 


0201 16 


044502 


051524 








3028 





5764 


030440 


026465 


026070 








3029 





5772 


054524 


042520 


042040 








3030 





6000 


046105 


054501 


052040 








3031 





8006 


04651 1 


020105 


0471 1 1 








3032 





6014 


041040 


052111 


0201 23 








3033 





6022 


026467 


060 










3034 





6025 


045 


0431 17 


040440 




.ASCII 


'%0F AN OCTAL WORD.%@' 


3035 





6032 


0201 16 


041517 


040524 








3036 





6040 


0201 1 4 


047527 


042 1 22 








3037 





6046 


022456 


100 










3038 





6051 


104 


052101 


020101 


ERDAT: 


.ASCII 


'DATA S/B: ' 


3039 





6056 


027523 


035102 


040 








3040 





6063 


040 


020040 


053440 


AASB: 


-ASCII 


' WAS: • 


3041 





6070 


051501 


020072 










3042 





6074 


020040 


040 




AWAS: 


.ASCII 




3043 





6077 


040 


054122 


052502 




.ASCII 


' RXBUF: ' 


3044 





6104 


035106 


040 










3045 





6107 


040 


020040 


020040 


ARXBUF: 


.ASCII 


• #• 


3046 





61 14 


020040 


100 










3047 





6117 


045 


042523 


020124 


ASETSR: 


.ASCII 


'%SET DESIRED SR OPTIONS. NORMAL OPERATION * 
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SEQ OOSS 



:dlag. 


PI 


30-MAR-78 


08:51 








3048 





6124 


042504 


044523 


042522 






3049 


01 


6132 


020104 


051123 


047440 






3050 





6140 


052120 


047511 


051516 






3051 





6146 


020056 


047516 


046522 






3052 





6154 


046101 


047440 


042520 






3053 


01 


6162 


040522 


044524 


0471 17 






3054 





6170 


040 










3055 





6171 


1 1 1 


020123 


044527 




.ASCII 


3056 





6176 


044124 


051440 


020122 






3057 


01 


6204 


020075 


030060 


030060 






3058 





6212 


030060 


040045 








3059 





6216 


044445 


041516 


051 117 


AINCRT: 


.ASCII 


3060 





6224 


042522 


052103 


051040 






3061 





6232 


052517 


044524 


042516 






3062 





6240 


051440 


046105 


041505 






3063 





6246 


042524 


026104 


050040 






3064 





6254 


040514 


042503 


041440 






3065 





6252 


051 1 17 


042522 


052103 






3066 





6270 


050040 


047522 


051107 






3067 





6276 


046501 










3068 





6300 


044445 


020116 


051 123 




.ASCII 


3069 





6306 


030040 


031055 


040440 






3070 





6314 


0421 16 


050040 


042522 






3071 





6322 


051523 


041440 


0471 17 






3072 





6330 


044524 


052516 


027105 






3073 





6336 


100 










3074 





6337 


045 


0471 1 1 


040526 


AINCPG: 


.ASCII 


3075 





6344 


044514 


020104 


051 120 






3076 





6352 


043517 


040522 


0201 15 






3077 





6360 


042523 


042514 


052103 






3078 





6366 


042105 


040056 








307 9 





6372 


207 






APGEND: 


.BYTE 


3080 





6373 


045 


047105 


020104 




.ASCII 


3081 





6400 


040520 


051523 


036440 






3082 





6406 


040 










3083 





6407 


040 


020040 


020040 


APCNT: 


.ASCII 


3084 





6414 


020040 


046040 


0471 11 






3085 





6422 


020105 


020075 


040 






3086 





6427 


040 


020040 


051040 


ACLIN: 


.ASCII 


3087 





6434 


041530 


051123 


036440 






3088 





6442 


040 










3089 





6443 


040 


020040 


020040 


APRXC: 


.ASCII 


3090 





6450 


020040 


053040 


041505 






3091 





6456 


047524 


020122 


020075 






3092 





6464 


020040 


020040 


020040 


apvec: 


.ASCII 


3093 





6472 


020040 


100 








3094 





6475 


045 


050045 


043522 


P3TIT! 


.ASCII 


3095 





6502 


026463 


044523 


043516 






3096 





6510 


042514 


041440 


040510 






3097 





6516 


020122 


040515 


0471 11 






3098 





6524 


020124 


047515 


042504 






3099 


01 


6532 


042040 


052101 


02010. 






3100 





6540 


042524 


052123 


100 






3101 





6545 


045 


050045 


043522 


P4TIT: 


.ASCII 


3102 





6552 


026464 


050123 


041505 






3103 


01 


6560 


041040 


047111 


041440 







ASCII 'IS WITH SR » 000000%©' 



ASCII '^INCORRECT ROUTINE SELECTED, PLACE CORRECT PHOGRAIS' 



ASCII 'XIN SR 0-1 AND PRESS CONTINUE.®' 



ASCII 'XINVALID PROGRAM SELECTED. @' 



LINE 



ASCII '%%PRG4-SPEC BIN COUNT MAINT MODE DATA TEST?' 



.MAIN. MACY11 30A(1052) 30-MAR-78 08:g2 PAGE 60 
CZDLAG.PII 30-MAR-78 08:51 



SEQ 0060 



3 1 04 


1 B500 






046440 


31 05 


1 6574 




n^oi 1R 


046440 


3 1 06 


01 6602 




0201 05 


040504 


3107 


1 66 1 


t\A AC Oi*! 


052040 


051 505 


3 1 08 


01 66 1 6 


04 0124 






3 1 09 


1 6620 


052045 


0501 31 


0201 05 


3110 


1 6626 


noni ol 


WD«£UM w 


051 505 


3111 


1 6634 




tSAA 1 A'a 




3112 


1 6642 


020056 




042504 


3113 


1 6650 


AO AAI^t3 

UuDb 


AO AA^n 


022440 


2! ^ f 


1 6656 








3115 


1 6657 


045 




042520 


3116 


1 6664 


Ayl ^ >1 y1 A 


0201 16 


0445 1 4 


3117 


1 6672 










u 1 o / uu 


AO AA^n 


020040 


1 00 


3119 






04451 4 


042516 






rsA 7Azin 

w*f / U*t U 


0271 1 7 






n R o^ 


AO AAil A 


053440 


051 501 






AK 1 A AH 


AdKi nt% 

UM D 1 UD 


04 1 505 




ni K7^o 


042524 


040 1 04 




Ti of 




AC 1 A^c: 


04 1 505 


044505 


^1 OR 






0201 22 


0501 23 




016752 


04 2505 


020 1 04 


0441 03 




1 6760 








tl OR 




052045 


040522 


051 5 1 6 


ai OQ 


01 6772 




0201 24 


050 1 23 




U 1 / UUU 


04 2505 


0201 04 


0441 03 




1 7006 


U*t 1 DUD 






t l OO 




05 1 445 


052 1 05 


041 440 




1 7020 




045503 


051 440 


qf 




044527 


04 1 524 


042510 




01 7034 


02 0123 




050040 




01 7042 




0521 1 1 


04751 * 






026^1 6 


052040 


0425 1 




01 7056 


0201 1 6 




051 505 




1 7064 


02 0123 


047503 


0521 1 6 








042525 


040056 




017100 


A^ OAA^ 




051 1 1 7 


^1 dO 


ni 7 1 ?f 


no K^a^n 


052440 


04251 6 






05 0130 


04 1 505 


042524 




ni 7 oo 


no A 1 HA 




0501 01 




ni 71 


052045 


040522 


0501 20 


3146 


01 71 36 




052040 


0201 1 7 


31 47 


0171 44 


040 






3148 


017145 


040 


020040 


020040 


3149 


017152 


020040 


040 




3150 


017155 


045 


051124 


050101 


3151 


017162 


042520 


020104 


051 1 06 


3152 


017170 


046517 


050040 


020103 


3153 


017176 


040 






3154 


017177 


040 


020040 


020040 


3155 


017204 


020040 


040040 




3156 


017210 


047045 


0201 17 


042504 


3157 


017216 


044526 


042503 


050040 


3158 


017224 


042522 


042523 


0521 16 


3159 


017232 


026440 


052040 


044510 



SELCAR: .ASCII '%TYPE IN TEST CHAR. CODE. %@' 

LDLINE: .ASCII 'JSTYPE IN LINE NO. @' 

ALINE: .ASCII '5JLINE NO." 

SELINE: .ASCII ' WAS SELECTEu@' 

MSETRX: .ASCII 'XRECEIVER SPEED CHECK©* 

MSETTX: .ASCII "XTRANSMIT SPEED CHECK©' 

MSETC: .ASCII '%SET CLOCK SWITCHES TO POSITION. THEN PRESS CONTINUE.*' 



MTERR: .ASCII '%ERROR - UNEXPECTED TRAP' 

•ASCII 'STRAPPED TO ' 

MTO: .ASCII ' ' 

.ASCII 'XTRAPPED FROM PC ' 

MFROM: .ASCII • @' 

MNOLIN: .ASCII '%N0 DEVICE PRESENT - THIS LINE NO.®' 
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SEQ 0061 



3160 


017240 


020123 


044514 


042516 












3161 


017246 


047040 


027117 


100 












3162 


017253 


077 


040045 




DTERR: 


.ASCII 


•?%# 






3163 


017256 


047045 


020117 


0471 1 1 


INTER: 


.ASCII 


'XNO 


INTERRUPT*' 


3164 


017264 


042524 


051122 


050125 












3165 


017272 


040124 










'XCS 






3166 


017274 


041445 


020123 


020075 


MSO: 


.ASCII 




0©' 


3167 


017302 


040060 










•%cs 






3168 


017304 


041445 


020123 


020075 


MSI : 


.ASCII 




1®' 


3169 


017312 


040061 
















3170 


017314 


041445 


020123 


020075 


MS2: 


.ASCII 


'XCS 




2©' 


3171 


017322 


040062 
















3172 


017324 


041445 


020123 


020075 


MS3: 


.ASCII 


'%CS 




3*' 


3173 


017332 


040063 










'%CS 






3174 


017334 


041445 


020123 


020075 


MS4: 


.ASCII 




4S>' 


3175 


017342 


040064 
















3176 


017344 


041445 


020123 


020075 


MS5: 


.ASCII 


'%CS 




5©' 


3177 


017352 


040065 
















3178 


017354 


041445 


020123 


020075 


MS6: 


.ASCII 


•%cs 




6P' 


3179 


017362 


040066 
















3180 


017364 


041445 


020123 


020075 


MS7: 


.ASCII 


•%cs 






3181 


017372 


040067 
















3182 


017374 


051045 


041505 


0531 17 


MPWRF: 


.ASCII 


'^RECOVERED FROM 


3183 


017402 


051 105 


042105 


043040 












3184 


017410 


047522 


020115 


047520 












3185 


017416 


042527 


020122 


040506 












3186 


017424 


046111 


051125 


040105 












3187 












.EVEN 








3188 




000001 








.END 









.MAIN. MACY1 1 30A(1052) 30-MAR-78 08:52 PAGE 63 

CZDLAG.P11 30-MAR-78 08:51 CROSS REFERENCE TABLE — 



USER SYMBOLS 



SEQ 006S 



AAA 


006514 


1502 


1506# 


AAAA 


01 0052 


1851 


1855jV 


AAAB 


01 0066 


1856 


I85g# 


AAB 


006526 


1 508# 


151 1 


AABA 


01 3556 


2634 


2640# 


AABB 


01 3602 


2646# 


2652 


AABC 


01 361 2 


2641 


2648# 


AABD 


01 3626 


2649 


265 1# 


AABE 


01 3632 


2648 


2653# 


AAE 


006530 


1506 


1509# 


AASB 


01 6063 


1326 


3040(S' 


ABA 


006546 


1518 


1522# 


ABAA 


1 1 1 30 


2081 


2085# 


ABAB 


01 1 222 


2089 


2102# 


ABB 


006566 


1524 


1526* 


ABBA 


01 3650 


2662 


2666* 


ABBB 


01 3672 


2669 


2671* 


ABE 


006570 


1522 


1527# 


ACA 


006606 


1536 


1540* 


ACAA 


01 1 234 


2109 


21 1 4# 


ACAB 


01 1 364 


2127 


2139# 


ACB 


006620 


1542# 


1545 


ACBA 


01 371 4 


2679 


2685* 


ACBB 


01 3752 


2684 


2693# 


ACBC 


01 3754 


2692 


2694# 


ACE 


006622 


1540 


1543* 


ACLIN 


016427 


1258 


3086* 


ADA 


006640 


1552 


1556* 


ADAA 


01 1404 


2147 


2152# 


ADAB 


01 1432 


2157 


2160# 


ADAC 


01 1450 


2159 


2165/!' 


ADB 


006652 


1558/S' 


1561 


ADDA 


014000 


2702 


2707# 


ADE 


006654 


1556 


1559* 


ADTENP 


004750 


1 186 


121 2lt 


AEA 


006672 


1568 


1573# 


AEB 


006706 


1574 


1577* 


AEC 


006730 


1579 


\SQ2it 


AED 


006750 


1576 


1581 


AFBA 


01 01 00 


1872 


1877# 


AFBB 


01 01 26 


1880 


1883/* 


AFBC 


01 01 52 


1882 


1886 


AGA 


006772 


1595 


1599# 


AGB 


007006 


1600 


1603* 


AGBA 


010164 


1895 


1900# 


AGBB 


01 0220 


1904 


1907* 


AGBC 


010254 


1913 


1916* 


AGBD 


010270 


1918 


1921# 


AGBE 


010324 


1906 


191 5 


AGC 


007030 


1605 


1608* 


AGD 


007050 


1602 


1607 


AIAA 


01 1464 


2173 


2178* 


AIAF 


011710 


2223 


2226.^ 


AIAS 


011712 


2185 


2190 


AIASA 


011742 


2235# 


2238 


AIAST 


011774 


2186 


2191 



1927 
1612# 



2205 
2206 
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CROSS REFERENCE 


AINCPG 


016337 


1246 


3074# 






AINCRT 


016216 


1242 


3059# 






AJA 


007072 


1621 


1625# 






AJB 


0071 14 


1627 


1630* 






AJBA 


010336 


1937 


1942# 






AJBB 


010364 


1945 


1948* 






AJBC 


010412 


1951 


1954# 






AJBD 


010436 


1947 


1953 


1957 


1959* 


AJC 


0071 36 


1632 


1635# 






AJD 


007156 


1629 


1634 


1637 


1639* 


AKA 


007200 


1648 . 


1653# 






AKB 


007212 


1654 


1657/^ 






AKBA 


010450 


1966 


1971# 






AKBC 


010506 


1976 


1978# 






ALA 


007224 


1664 


1668# 






ALAA 


012006 


2252 


2259# 






ALAB 


012036 


2264 


2267# 






ALAC 


012050 


2266 


2269 


2271* 




ALBA 


010656 


2018 


2023* 






ALBB 


010704 


2026 


2029# 






ALBC 


010732 


2032 


2035# 






ALBD 


010756 


2028 


2034 


2038 


2040* 


ALINE 


016705 


1112 


31 1 9# 






ALY 


007254 


1671 


1674# 






ALZ 


007274 


1673 


1676 


1678* 




AMAA 


012062 


2278 


2283* 






AMAC 


012114 


2289 


2291* 






AMBA 


010770 


2047 


2051# 






AMBB 


01 1030 


2056 


2059* 






AMBC 


01 1044 


2060 


2063# 






AMBD 


01 1072 


2066 


2069* 






AMBE 


011116 


2058 


2062 


2068 


2072 


AOAA 


012132 


2298 


230^.'' 






AOAB 


012150 




231 1 






A0AB1 


012164 


2308 


231 0# 






AOAC 


012206 


2313 


2316* 






AOAD 


012220 


2315 


2317 


2319* 




AQBA 


010544 


1990 


1994* 






AOBB 


010572 


1997 


2000* 






AOBC 


010620 


2003 


2006# 






AOBD 


010644 


1999 


2005 


2009 


2011* 


APA 


007306 


1685 


1689* 






APB 


007322 


1690 


1693* 






APBA 


014022 


2715 


2721* 






APBB 


014030 


2722# 


2733 






APC 


015240 


1353 


2964* 






APCNT 


016407 


1254 


3083* 






APCX 


007344 


1695 


1698* 






APD 


007364 


1692 


1697 


1700 


1702* 


APGEND 


016372 


1269 


3079* 






APRXC 


016443 


1262 


3089* 






APVEC 


016464 


1266 


3092* 






AOA 


007406 


171 1 


1715# 






AQAA 


012236 


2327 


2335* 






AOAB 


012462 


2380 


2383* 






AOAS 


012464 


2342 


2347 


2352 


2357 



SEQ 0063 
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AOASA 


012506 




2393 


AOAST 


012526 


2343 


2348 


AQB 


007422 


1716 


1719* 


AOBA 


014334 


2816 


2821* 


AOC 


007444 


1721 


1724* 


AOD 


007464 


1718 


1723 


ARA 


007506 


1737 


1741* 


ARAA 


012540 


2402 


2406* 


ARAS 


012654 


2406 


2407 


ARB 


007530 


1743 


1746* 


ARC 


007552 


1748 


1751* 


ARD 


007572 


1745 


1750 


ARXBUF 


016107 


1330 


3045* 


ARXCSR 


015466 


2138 


2993* 


ARXSB 


015501 


2131 


2995* 


ARXWAS 


015516 


2135 


2998* 


ASA 


007614 


1764 


1768* 


ASB 


007636 


1770 


1773* 


ASC 


007560 


1775 


1778* 


ASD ^ 


007700 


1772 


1777 


ASETSR 


0151 17 


1238 


3047* 


ATA 


007722 


1791 


1795* 


ATAA 


012714 


2442 


2450* 


ATAB 


012746 


2456(1' 


2459 


ATAC 


012750 


2449 


2457* 


ATB 


007736 


1796 


1799* 


ATLAST= 


177777 


477# 


2814 


ATNUMB 


015230 


1361 


2962* 


ATXCSR 


015427 


2101 


2986* 


ATXSB 


015442 


2094 


2988* 


ATXWAS 


015457 


2098 


2991* 


ATO 


0C6504 


1486 


1499* 


ATI 


C06536 


1500 


151 5* 


AT10 


007214 


1646 


1661* 


ATI 1 


007276 


1662 


1682* 


AT12 


007376 


1683 


1708* 


ATI 3 


007476 


1709 


1734* 


AT14 


007604 


1735 


1761* 


AT15 


007712 


1762 


1788* 


AT1S 


007740 


1789 


1803* 


AT 17 


007766 


1804 


1818* 


AT2 


006576 


1516 


1533* 


AT20 


010014 


1819 


1833* 


AT21 


010042 


1834 


1 848* 


AT22 


010070 


1849 


1869* 


AT23 


010154 


1870 


1892* 


AT24 


010326 


1893 


1934* 


AT25 


010440 


1935 


1963* 


AT26 


010534 


1964 


1987* 


AT27 


010646 


1988 


201 5* 


AT3 


006630 


1534 


1549* 


AT30 


010760 


2016 


2044,. 


AT31 


01 1 1 20 


2045 


2078* 


AT32 


01 1224 


2079 


2106* 


AT33 


01 1374 


2107 


2144* 


AT34 


011454 


2145 


2170* 



238S<» 3391 « 
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SEQ 0065 



AT35 


01 1776 


2171 


2249* 


AT36 


012052 


2250 


2275* 


AT37 


0121 16 


2276 


2295* 


AT4 


006662 


1550 


1565* 


AT40 


012226 


2296 


2324* 


AT41 


012530 


2325 


2399* 


AT42 


012674 


2400 


2439* 


AT43 


012762 


2440 


2463* 


AT44 


013040 


2464 


2485* 


AT45 


013124 


2486 


2508* 


AT46 


013222 


2509 


2536* 


AT47 


013306 


2537 


2560* 


ATS 


006762 


1566 


1592* 


AT50 


013370 


2561 


2584* 


AT51 


013452 


2585 


2607* 


AT52 


013542 


2608 


2631* 


AT53 


013640 


2632 


2659* 


AT54 


013700 


2660 


2676* 


AT55 


013764 


2677 


2699* 


AT56 


014006 


2700 


271 2* 


AT57 


0141 00 


2713 


2738* 


AT6 


007062 


1593 


1618* 


AT60 


014164 


2739 


2763* 


AT61 


014234 


2764 


2784* 


AT62 


014270 


2785 


2799* 


AT63 


014324 


2800 


281 3* 


AT7 


007170 


1619 


1645* 


AUAA 


012776 


2466 


2473* 


AUAB 


01 3022 


2477* 


2481 


AUAC 


013032 


2472 


2479* 


AVAA 


01 3054 


2488 


2495* 


AVAB 


013112 


2494 


2502* 


AVAC 


0131 14 


2501 


2503* 


AWAA 


013134 


251 1 


2516* 


AWAB 


013164 


2523* 


2529 


AWAC 


013174 


2517 


2525* 


AWAD 


013210 


2526 


2528* 


AWAE 


013214 


2525 


2530* 


AWAS 


016074 


1322 


3042* 


AXA 


007750 


1806 


1810* 


AXAA 


013246 


2539 


2548* 


AXAB 


013274 


2546 


2554* 


AXAC 


01 3276 


2553 


2555* 


AXB 


007764 


181 1 


1814* 


AX1 A 


013326 


2563 


2571* 


AX1B 


013356 


2570 


2578* 


AX1C 


013360 


2577 


2579* 


AYA 


007776 


1821 


1825* 


AYAA 


013410 


2587 


2595* 


AYAB 


013434 


2599* 


2603 


AYAC 


013444 


2593 


2601* 


AYB 


010012 


1826 


1829* 


AZA 


010024 


1836 


184C;/ 


AZAA 


013472 


2610 


2618* 


AZAB 


013530 


2616 


2625* 


AZAC 


013532 


2624 


2626* 
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SEQ 0083 



AZB 


01 0040 


1 841 


1 844* 








BDCNV 


004604 


1 1 81 


1 252 








BDCNVA 


004636 


1 1 88# 


1191 








BDCNVB 


004670 


1 1 93'* 


1 1 95* 








BDCNVC 


004672 


1 1 84<* 


1 1 96* 








BDCNVD 


004674 


1 1 85* 


1 1 92 


1 1 97* 






BI TO = 


00000 1 


AA9ff 
1 586 


7 1 8 
2823 


723 


739 


1 091 


B1T1 s 


000002 


AAStt 


1219 


1668 


1669 


1670 






1 948 


1954 


21 15 


2139 




BI T 1 a 


002000 


439# 


81 1 


1810 


2025 


2031 


B I T 1 1 a 


004000 


438* 


806 


1825 


2307 


2316 


BI T 1 2 = 


1 0000 


437# 


1 076 


1270 


1 291 


1879 


BI T 1 3 a 


020000 


A36I/ 


1 250 


1345 


1458 


1 944 


BI T 1 4 s 


040000 


435# 


796 


1 840 


1975 


1980 


BIT1 5 a 


1 00000 


433 


434* 


814 


1350 


1855 






2059 


2065 


2071 


2423 




BIT2 s 


000004 


AA7M 


831 


1220 


1599 


1603 






1699 


1702 


1971 


1973 


1978 






2834 


2883 


2927 






BIT3 s 


00001 


446# 
2069 


1715 


1719 


1720 


1724 


BI T4 a 


000020 


AA5M 










BI T5 = 


000040 


AAAtf 


1742 


1746 


1747 


1751 


BITS s 


0001 00 


AA3(f 


1099 


1 100 


1 105 


1452 






1769 


1773 


1774 


1778 


1779 






2495 


2498 


2503 


2518 


2520 






2621 


2626 


2642 


2643 


2646 


BIT7 = 


000200 


442# 


1795 


2088 


2091 


2162 


BITS a 


000400 


441# 










BITS s 


001 000 


AAO^ 


778 


816 


1430 




BMOVA 


004572 


1 1 7A^ 


1 1 76 








BMOVE 


004562 


1117 


1 1 7C.* 


1 194 






CD ffi 


1 00000 


478# 


1497 


1513 


1531 


1547 






2076 


2142 


2168 


2273 


2293 






2629 


2657 


2674 


2697 


2811 


CDINIT 


002706 


B29M 


2303 


2706 


2821 




CDINX 


002732 


830 


835* 








CHAINN 


002540 


619 


796* 








CHALT = 


1 04005 


465# 










CHNA 


002556 


797 


800* 








CHNAA 


002624 


807 


810* 








CHNAB 


002550 


798# 


809 


825 






CHNB 


002650 


785 


812 


816* 






CLRCD 


003300 


706 


928* 


1081 






CMASO 


001302 


536# 


1418 








CMASI 


001304 


537* 










CMAS1 


001322 


544* 










CMASI 1 


001324 


545* 










CIVIAS12 


001326 


546* 










CMASI 3 


001330 


547* 










CMAS14 


001332 


548* 










CMAS15 


001334 


549* 










CMASI 6 


001336 


550* 










CMAS17 


001340 


551* 










CMAS2 


001306 


538* 











1 098 


1294 


1451 


1573 


1577 


1578 


1582 


1583 


1674 


1675 


1877 


1883 


1900 


1907 


1921 


1942 


2037 
















1885 
















1950 


1956 














2409 


2417 


2427 












1903 


1912 


1916 


1926 


1996 


2002 


2008 


2055 


1604 


1608 


1609 


1612 


1689 


1693 


1694 


1698 


1994 


2000 


2006 


2259 


2283 


2304 


2431 


2822 


1725 


1728 


2023 


2029 


2035 


2051 


2053 


2063 


1752 


1755 


2579 












1453 


1464 


1626 


1630 


1631 


1635 


1636 


1639 


1782 


2450 


2452 


2455 


2457 


2474 


2475 


2477 


2523 


2548 


2550 


2555 


2595 


2597 


2599 


2618 


2687 


2689 


2694 












2922 
















1563 


1590 


1616 


1643 


1759 


1816 


1831 


1846 


2397 


2437 


2461 


2483 


2506 


2534 


2582 


2605 
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CMAS20 


001342 


552* 










CMAS21 


001344 


553* 










CMAS22 . 


001346 


554* 










CMAS23 


001350 


555* 










CMAS24 


001352 


556* 










CMAS25 


001354 


557* 










CMAS26 


001356 


558* 










CMAS27 


001360 


559* 










CMAS3 


001310 


539* 










CMAS30 


001362 


560* 










CMAS31 


001364 


561* 










CMAS32 


001366 


562* 










CMAS33 


001370 


563* 










CMAS34 


001372 


564* 










CMAS35 


001374 


565* 










CMAS36 


001376 


566* 










CMAS37 


001400 


567* 










CMAS4 


001312 


540* 










CMAS5 


001314 


541* 










CMAS6 


001316 


542* 










CMAS7 


001320 


543* 










CMPT 


014424 


2222 


2379 


2840* 






CMPTNG 


014514 


2841 


2843 


2845 


2847 


2849 


CMPTOK 


014520 


2853 


2855* 








CNVCTR 


004742 


1 187* 


1 190* 


1209* 






CONT 


005322 


1285 


1291* 








COUNT 


001624 


646* 


991* 


1007* 


1008 




CRBUF 


001556 


627* 


1230* 


1318 


1321 


2730* 


CRBUFA 


001560 


628* 


1225* 


1311* 


1318 


1325 


CRBUFB 


001562 


629* 


1315* 


1316 


1329 




CTRO 


001564 


630* 


1221* 


1232* 


2186* 


2343* 


CTR1 


001566 


631* 


2191* 


2348* 


2840 


2842 


CTR2 


001570 


632* 


2196* 


2353* 


2842 


2844 


CTR3 


001572 


633* 


2201* 


2358* 


2844 


2846 


CTR4 


001574 


634* 


2206* 


2363* 


2846 


2848 


CTR5 


001576 


635* 


221 1* 


2368* 


2848 


2850 


CTR6 


001600 


636* 


2216* 


2373* 


2850 


2852 


CTR7 


001502 


637* 


2221* 


2378* 


2852 




CURTST 


001454 


593* 


784 


790 


843* 




DATAA 


005012 


1222* 


1233 








DATCHKa 


104004 


464* 


1231 


2731 


2934 




DATTST 


004770 


1219* 


2707 








DECVAL 


004762 


1182 


1217* 








DELAY = 


104016 


474* 


832 


1048 


2261 


2433 


DIGIT 


004744 


1200* 


1203* 


1206* 


1207 


1210* 


DLCNT 


003772 


1027* 


1029 


1040* 






DLY 


003726 


623 


1027* 








DLYA 


003750 


1032* 


1037 








DLYB 


003754 


1033* 


1034 








DLYC 


003766 


1030 


1038* 








DOTHIS 


006216 


1430* 


2178 


2335 






DTCHK 


005424 


613 


1315* 








DTCHKA 


005514 


1319 


1334* 








DTCHKX 


005452 


1317 


1320* 








DTERR 


017253 


1017 


3162* 








ECDAT 


003606 


996* 


997 









SEO 0067 



USER SYMBOLS 



2933* 
2725* 



2721* 2732* 



.MAIN. 


MACY1 1 


30A(1052) 30-MAR~78 08 


:52 PAGE 69 




C2DLAG 


.P11 30-MAR-7a 


08:51 




CROSS REFERENCE 


TABLE 


EHALT 


= 1 040 1 




468# 


1367 








EHLT 


005362 




617 


1302# 








EHLTA 


005372 




1303 


1305# 








EMTA 


003000 




849* 










EMTINT 


002766 




414 


&A6» 








EMTTAB 


001514 




609# 


851 








EMO 


01 5226 




1364 


296 1# 








ERDAT 


01 6051 




1333 


3038# 








ERR 


00551 6 




612 


1337# 








ERRA 


005566 




1340 


1345# 








ERRB 


005666 




1337* 


1338* 






1343' 


ERRC 


005672 




1346 


1367# 








ERRD 


005702 




1347* 


1348* 




1 370ff 




ERRE 


005704 




1339* 


1344* 




1 371 # 




ERROR 


= 1 04003 




463# 


1442 


14fi9 


1510 


1528 








1628 


1633 


Ifi^ft 


1 655 


1672 








1749 


1754 


771 




1781 








1914 


1919 


1 928 


1 946 


1952 








2039 


2057 






2073 








2286 


2290 


231 4 




241 1 








2531 


2552 






2623 








2826 


2829 




2926 


2932 


ERR0R1 : 


= 104015 




473# 


1332 


21 


21 37 


2224 


ERR1 


005540 




622 


1341# 








ERTP 


005706 




402 


404 


_ 


OB 


416 


ERTPA 


005756 




1382# 


1401 








ERXTIM 






2382 


3006(i' 








ETXTIM 






2225 


3000# 








EXA 


01 41 74 




2766 


2771* 








EXAA 


A 1 A'^AA 
U 1 'l^HH 




2787 


2790A' 








EXBA 


1 4300 




2802 


2805* 








EXTA 






2741 


2747# 








FMAP 


001 472 




600# 


705* 


773* 


1 098* 


1400 


FNONE 


UU 1 DaU 




648# 


713* 


733* 


736 




FORMAD 


n A A A 7 o 
UUDU / £ 




745 


1096 


1 298 


1 409/^ 




FORWD 


002734 




777 


838/S' 








FOUNDV 






641)1' 


704* 


1 078* 


1 54q* 


1446 


FRQMPC 


001 634 




650# 


1381* 








FTITLE 


001 626 




647# 


664* 




719 


7551 


GETRDY 


002402 




770# 


794 


oi 7 


R91 


1494 


GOBACK 


006232 




1431 


1433# 








GRCNT 


A A/l A OA 




1053# 


1055 








GTBIN 


A A ^ OCA 




1 IBOiy 










GTBINP 


004426 




1 139# 


1224 


2724 


2917 




GTRDA1 


002472 




781 


784# 








GTRDYA 


002442 




777# 


783 


792 






GTRDYC 


002500 




779 


786^ 








GTRDYD 


002522 




789 


791# 








GTRDYX 


002410 




771# 


819 


1432 






ICTR 


001464 






808* 


841* 






INBIN 


004322 




1 1 16# 


2720 


2916 






INCRPG 


0051 10 




606 


607 


608 


1245# 


1479 


INCRTN 


005100 




793 


124^ 








INDAT 


003562 




990# 


1019 








INTER 


017256 




1461 


3163# 








KSTART 


001452 




592# 


770 


1486* 






.MAIN. 


MACY11 30A(1052) 


30-MAR' 


-78 08: 


52 PAGE 


70 




CZDLAG. 


PI 1 30 


--MAR-78 


08:51 




CROSS REFERENCE 


TABLE • 


LDLINE 


016657 




1083 


31 15# 








LINA 


004214 




1093# 


1 104 








LINB 


004222 




1092 


1096# 








LINENO 


001614 




642# 


741* 


742* 


743* 


1087* 


LINSEL 


0041 14 




1076# 


1493 








LINSLX 


004132 




1077 


1080# 


1095 


2862 


2878 


LOGIC 


005312 




421 


1237* 








MACHER 


000004 




404/4' 


714* 


735* 


771* 


772* 


MANUAL= 


100000 




433)f 










MAPA 


0021 32 




7l6)f 


725 


734 






MAPEND 


002220 




717 


735# 








MAPERR 


002304 




737 


750* 








MAPNE 


002160 




714 


723# 








MAPOK 


0021 70 




722 


726# 








MAPVEC 


006014 




410 


1396* 








MASKIT 


005374 . 




1226 


1308# 


2726 


2930 




MDEVAD 


015135 




729 


732 


2950# 






MESS1 


001762 




672 


674# 








MFROM 


017177 




1388 


3154# 








MNOLIN 


017210 




1094 


3156# 








MNONE 


01521 1 




751 


2958* 








MOUTIN 


014764 




2908 


2919 


2922# 






MPWRF 


017374 




1441 


3182# 








MRXNUM 


015257 




1357 


2967^ 








MS ETC 


017012 




2181 


2338 


3132# 






MSETRX 


016736 




2337 


31 24# 








MSETTX 


016764 




2180 


3128# 








MSO 


017274 




2182 


2339 


3166# 






MSI 


017304 




2188 


2345 


3168# 






MS2 


017314 




2193 


2350 


3170* 






MS3 


017324 




2198 


2355 


3172)^ 






MS4 


017334 




2203 


2360 


3174# 






MSB 


017344 




2208 


2365 


3176/S' 






MS6 


017354 




2213 


2370 


3178* 






MS7 


017364 




2218 


2375 


3180* 






MTERR 


017100 




1391 


3141 A* 








MTIT 


015044 




71 1 


2939(S' 








MTO 


017145 




1384 


3148# 








NOP 


000240 




431# 










NXTST 


001462 




596^ 


770* 


791 


818 


838 


OACNV 


004474 




727 


1 107 


1 1SO)!' 


1256 


1260 








1386 


2092 


2096 


2129 


2133 


OACNVA 


004510 




1 1SB* 


1164 








OACNVX 


004560 




1151* 


1 155 


1159* 


1 160* 


1 161 * 


OLDPS 


001470 




599# 


1374* 


1376* 


1377* 


1378* 


OPEN = 


000000 




432(1' 


591 


592 


593 


594 








631 


632 


633 


634 










882 


883 


890 


899 


961 








1125 


1 126 


1127 


1167 


1209 








2888 










OVRLAY 


003516 




707 


975# 


1080 


1448 


2447 


OVRLYA 


003532 




978# 


983 








OVRLYB 


003552 




982 


984# 








PASCNT 


00163S 




651 # 


758* 


1253 


1272* 


1281* 


PFAIL 


006234 




412 


703 


1435* 


1437 




PGMSG 


01515S 




762 


2953# 









SEQ 0068 

USER SYMBOLS 



1365* 



1544 


1560 


1575 


1580 


1585 


1601 


1606 


1611 


1677 


1691 


1696 


1701 


1717 


1722 


1727 


1744 


1797 


1812 


1827 


1842 


1857 


1881 


1887 


1905 


1958 


1977 


1982 


1998 


2004 


2010 


2027 


2033 


2120 


2123 


2154 


2158 


2161 


2164 


2265 


2270 


2415 


2420 


2425 


2429 


2454 


2480 


2500 


S522 


2645 


2654 


2670 


2691 


2723 


2729 


3758 


2776 



2381 

735 771 1374# 



1405* 1451* 



1466* 



1480 1481 



SEQ 0069 

USER SYMBOLS 



1108 1257 1274 1282* 1297* 1416 
2902 2915 

1506* 1522* 1540* 1556* 



P40* 



1204 


1320 


1324 


1328 


1351 


1355 


1359 


1382 


1 162* 


1167# 














1379* 


1380 














596 


597 


598 


614 


627 


628 


629 


630 


636 


637 


638 


639 


640 


643 


867 


868 


971 


1040 


1049 


1058 


1059 


1122 


1123 


1124 


1210 


1211 


1365 


1370 


1371 


2245 


2395 


2871 


2544 


2568 
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C2DLAG.P11 30-MAR-78 08:51 CROSS REFERENCE TABLE — USER SYMBOLS 



SEQ 0070 



PIND 


004352 


1 1 25# 


1 141 * 




POPSP a 


005726 


450# 


1035 


1038 


P0PSP2" 


022626 


451# 


724 


810 






2578 


2601 


2625 


PRGEA 


005250 


1277i» 


1 292 




PRGEB 


005334 


1280 


1 294* 




PRGEC 


005242 


1276# 


1295 




PRGEND 


005122 


820 


1 249* 




PRGEXT 


005212 


1251 


1270* 




PRGNUM 


001450 


591# 


766* 


1470 


PRGTAB 


001474 


601# 


768 




PRGXTL 


005302 


754 


1 273 


1 284# 


PRGXT1 


005230 


1271 


1 274* 




PRGO 


006446 


601 


1 486* 




PRGOA 


006500 


1474 


1 494* 




PRGOB 


006474 


1 488 


1 493* 




PRG1 


014522 


602 


2860* 




PRG1 A 


014546 


1475 


2867* 


2872 


PRG1 B 


014570 


2867* 


2871 # 




PRG2 


014574 


603 


2876* 




PRG2A 


014620 


1476 


2883* 


2895 


PRG2B 


014650 


2884* 


2888* 




PRG3 


014672 


604 


2900* 




PRG3A 


014716 


1477 


2907* 


2909 


PRG4 


014732 


605 


291 3* 




PRG4A 


014746 


1478 


291 7* 


2920 


PRTYO = 


000000 


459(S' 






PRTY1 = 


000040 


458* 






PRTY2 = 


0001 00 


457# 






PRTY3 = 


000140 


456* 






PRTY4 = 


000200 


455# 


588 


590 


PRTY5 = 


000240 


454A' 






PRTY6 = 


000300 


453# 






PRTY7 s 


000340 


41 1 


41 3 


415 


PSW = 


1 77776 


429* 


71 9* 


759* 






1 768* 


2085* 


2114* 






2688* 






PTO 


004346 


1 1 23* 


1 1 30 


1 1 36* 


PTOP 


004354 


1 1 26* 


1 1 39 


1 1 45* 


PT1 


00435C 


1 1 24* 


1 1 30* 


1 1 31 * 


PT 1 P 


004356 


1 1 27* 


1 1 39* 


1 140* 


PWRUP 


006244 


1435 


1 437* 




POT IT 


015270 


1 490 


2969* 




P 1 T 1 T 


01 5632 


2861 






P2TIT 


015672 


2877 


3018* 




P3TIT 


016475 


2901 


3094* 




P4TIT 


016545 


2914 


3101* 




RCMSK 


004040 


1054 


1058* 




RDDAT 


003570 


992* 


d93 


1015 


RDOCT 


003554 


763 


987* 


1084 


RESTAR 


006414 


487 


1443 


1470* 


RETRN 


003712 


1000 


1020/. 




RIND 


004344 


1116* 


1118 


1119 


RMASK 


001404 


570* 


1308* 


1309* 


RNCNT 


004042 


1056* 


1059* 




RNGEN 


003226 


911* 


1044 


1053 



1397 
2653 



1509 
2693 



452* 
776* 
2451* 



1 134* 
1 143* 



1 106 

1031* 

2473* 



1135* 
1 144* 



1375 

1097* 

2496* 



1136 
1145 



1465 
1 106* 
2497* 



1137 
1146 



1625 
1374 
2519* 



1741 

1375* 

2549* 



1768 

1450* 

2572* 



2085 

1465* 

2596* 



2114 

1625* 1741* 
2619* 2620* 



1122* 
1310* 



1132* 
1311 
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SEQ 0071 



RP1 


003274 


91 1 


915* 


922 


924* 








RP2 


003276 


914 


918 


921* 


925* 








RREAD 


003702 


1002 


1004 


1006 


1009 


1016* 






RSTART 


006426 


1472 


1474* 












RSTPC 


0031 14 


872* 


880 


882* 










RSTPSW 


0031 16 


873* 


879 


883* 










RSTREG= 


104014 


472* 


1 165 


1177 


1 198 








RSTRG 


003060 


621 


872* 












RTNNO 


001456 


594* 


760* 


782 


788 


813 


839* 


1349 


RXBUF 


001412 


574* 


834 


931* 


1230 


1315 


1411* 


1525 






2427 


2671 


2730 


2827 


2889 


2928 


2933 


RXBUFT 


001610 


640* 


2408* 


2409 


2413 








RXCRO 


001200 


495* 


715 


738 


742 


1090 


1278 




RXCR1 


001202 


496* 














RXCR10 


001220 


503* 














RXCR1 1 


001222 


504* 














RXCR12 


001224 


505* 














RXCR13 


001226 


506* 














RXCR14 


001230 


507* 














RXCR15 


001232 


508* 














RXCR16 


001234 


509* 














RXCR17 


001236 


510* 














RXCR2 


001204 


497* 














RXCR20 


001240 


51 1* 














RXCR21 


001 242 


512* 














RXCR22 


001244 


513* 














RXCR23 


001246 


514* 














RXCR24 


001250 


515* 














RXCR25 


001252 


516* 














RXCR26 


001254 


517* 














RXCR27 


001256 


518* 














RXCR3 


001206 


498* 














RXCR30 


001260 


519* 














RXCR31 


001262 


520* 














RXCR32 


001264 


521* 














RXCR33 


001266 


522* 














RXCR34 


001270 


523* 














RXCR35 


001272 


524* 














RXCR36 


001274 


525* 














RXCR4 


001210 


499* 














RXCR5 


001212 


500* 














RXCR6 


001214 


501* 














RXCR7 


001216 


502* 














RXCSR 


001410 


573* 


930* 


1062 


1219* 


1228 


1261 


1356 






1675 


1689 


1693* 


1694 


1698* 


1699 


1702* 






1742 


1746* 


1747 


1751* 


1752 


1755* 


1769 






1810 


1825 


1840 


1855 


1877* 


1879 


1883* 






1916 


1921* 


1925 


1942* 


1944 


1948* 


1950 






1980 


1994* 


1996 


2000* 


2002 


2006* 


2008 






2051* 


2053* 


2055 


2059 


2063* 


2065 


2069* 






2268 


2288 


2307 


2310 


2316 


2392 


2548* 






2597* 


2599* 


2618* 


2621* 


2626* 


2642* 


2643* 






2748* 


275< 


2773* 


2774 


2792* 


2793 




RXCSRT 


001606 


639* 


1902* 


1911* 


1912 


1925* 


1926 


2125* 


RXEND 


001300 


527* 


716 


748 










RXLVL 


001422 


578* 


891 


934* 


1424* 


2596 


2619 





1360 
2287 



1409* 

1715 

1773* 

1885 

1954* 

2023* 

2071 

2550* 

2646* 

2126 



1507* 

1719* 

1774 

1900* 

1956 

2025 

21 15* 

2555* 

2667 

2134 



1668* 

1720 

1778* 

1902 

1971* 

2029* 

2116* 

2571* 

2668 

2667* 



1669* 

1724* 

1779 

1903 

1973* 

2031 

2125 

2573* 

2687* 



1670 

1725 

1782* 

1907* 

1975 

2035* 

2139* 

2579* 

2689* 



1674* 

1728* 

1795 

191 1 

1978* 

2037 

2263 

2595* 

2694* 
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- USER SYMBOLS 



SEQ 0072 



RXVTR 


001 420 


577# 


889 


932* 


1 io? 


1 265 


1 404* 


1449* 


1 456 


2648* 










SAVREG* 


1 040 1 3 


471 # 


1 1 50 


1 1 70 


1 181 




















SAVRG 


003020 


620 


























SCOPE = 


1 040 1 2 






! 


! 




1 558 


1 


1614 


1641 


1 657 


1 678 


1 704 


1 730 






1 757 


1 784 


1 799 


1814 


1 829 


1 844 


1 859 


1 888 


1930 


1959 


1983 


201 1 


2040 






2074 


21 02 


21 40 


21 66 


2226 


2271 


2291 


2320 


2383 


2412 


2416 


2421 


2426 






2430 


2456 


2478 


2504 


2524 


2556 


2580 


2600 


2627 


2647 


2672 


2695 


2708 






2734 


2759 


2780 


2795 


281 


2831 
















SCOPTR 


00 1 466 


598# 


798 


842* 






















SELCAD 


1 5727 


2864 




30234* 






















SELCAR 


01 6620 


2904 


31 09# 
























SE L I NE 


1 67 1 6 


1 1 09 


31 2 1 it 
























SETSR 


005070 


1 237# 


1 492 
























S lOT 


0041 1 2 


1 062* 


^ 2c «* 


1068 


1 073* 




















SOFTSR 


0001 76 


483* 


659 
























SPBOT s 


001 1 76 








rI ^ 




















SRESETa 


1 0401 1 














Ofl^O 


1 729 


1756 


1 783 


1 798 


1813 


1 828 










C^Q 


01 04 


01KK 


OOfi7 
















SRPTR 


A A A < ^ A 
000 1 / *t 




f f K 


<f In* 


iIrb 


7«R 


7Qe 
796 


one 
806 


81 1 


816 


1076 


1250 


1 270 


1 291 








QA^K 




1458 


nnnn 

2922 




















0032 1 


C O 

f ] T 




906* 






















CT A 1 


003774 


61 1 


] A^Q 


























0040 1 4 






























0040 1 6 




























C I 


1 04002 




























CTADT ° 


002044 






702# 


7K7 

757 


1248 


1393 
















CT ADT7 


A A 1 C ^ A 




























CTflDTI 




7Aa 


























CT ADTO 


002240 


739# 


























DTQ 
CT ADT^ 






























^ . 


002334 


746 


























ST LMSK 


00 1 406 




























ST LSPV 


^^^^ f f 




























ST LSRV 


0031 20 


615 


886ff 
























STPPA 


0031 76 


896* 


899# 
























STPRA 


0031 42 




o^of * 


























1 4404 










ofif c 


2685 


ocal 


2772 


2834# 










CTDYW 


1 04006 












2640 


2683 














STTX " 


■i A^ A AT 








2493 


2516 


















SUBT EN 


004702 


1 DQ 


i OAAJf 

1 on2 
























SUBTNA 


A A/l "7 AC 


OA1 « 


























C 1 ) □ T ki D 

bUD 1 No 


004722 




1 on^* 


























003054 


857* 


865 


867# 






















SVRPSW 


003056 


858* 


864 


868# 






















TEMP 


001616 


643* 


1085* 


1086* 


1087 


1088* 


1089 


1274* 


1275* 


1276* 


1277 


1283* 


1296* 


1297 






1416* 


1417* 


1418* 


1419 


2091* 


2093 


2128* 


2130 


2306* 


2309* 


2312 






TEMPI 


001620 


644* 


726* 


728 


1419* 


1420 


1421* 


1422* 


1423* 


1424 


1425 








TEMP2 


001622 


645# 


2866* 


2867 


2868 


2882* 


2884 


2885 


2906* 


2907 










TENPWR 


004746 


1 188* 


1201 


1205 


121 1* 




















TIME 


01 1762 


1878 


1884 


1901 


1910 


1924 


1943 


1949 


1955 


1972 


1974 


1979 


1995 


2001 






2007 


2024 


2030 


2036 


2052 


2054 


2064 


2070 


2235 


2241 # 


2390 






TIMER 


0041 10 


1065* 


1066* 


1072* 






















TIMERX* 


104017 


475# 


2122 


2285 


2728 


2825 


2836 


2931 














TIMETX- 


104020 


476# 


21 19 


2153 


2160 


2722 


2925 
















TIMEX 


004106 


1067 


1071* 
























TIME1 


004062 


1063 


1065# 
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TIME2 


004066 


1066* 


1069 
























TIM1 


01 1766 


2242# 


2243 
























TKB 


001432 


584# 


994 
























TKLVL 


001442 


588JV 


























TKS 


001430 




992 
























TKVTR 


001440 


587# 


























TMRX 


004044 


624 


1062* 
























TMTX 


004054 


625 


1064* 
























TNNO 


001460 


595* 


1349* 


1350* 






















TOPC 


001632 


649A' 


1380* 


1383 


1396* 


1399* 


1402 


1403* 


1404 












TPB 


001436 


586# 


952* 


998* 






















TPLVL 


001446 


590# 


























TPS 


001434 


585* 


953 


996 






















TPVTR 


001444 


589* 


























TSTVA 


006372 


1457 


1464* 
























TSTVEC 


006270 


886 


895 


1446* 


1459 


1463 


















TSTVEX 


006412 


1447 


1467* 
























TXBUF 


001416 


576* 


928* 


1227* 


1415* 


1557 


2118* 


2121* 


2152* 


2155* 


2231* 


2234* 


2260* 


2284* 






2305* 


2389* 


2432* 


2727* 


2752* 


2824* 


2835* 


2868* 


2885* 


2929* 








TXCSR 


001414 


575# 


831* 


929* 


1064 


1099* 


1 100* 


1 105* 


1220* 


1222 


1413* 


1452* 


1453* 


1464* 






1541 


1573 


1577* 


1578 


1582* 


11-^3 


1586* 


1599 


1603* 


1604 


1608* 


1609 


1612* 






1626 


1630* 


1631 


1635* 


1636 


1639* 


1653 


2086* 


2088 


2090 


21 17* 


2156 


2162 






2229 


2232 


2237 


2259* 


2283* 


2304* 


2386 


2431* 


2450* 


2452* 


2455* 


2457* 


2474* 






2475* 


2477* 


2495* 


2498* 


2503* 


2518* 


2520* 


2523* 


2807* 


2808 


2822* 


2823* 


2834* 






2869 


2883* 


2886 


2927* 




















TXCSRT 


001604 


638* 


2090* 


2097 






















TXLVL 


001426 


580* 


900 


935* 


1425* 


2473 


2496 
















TXVTR 


001424 


579* 


898 


933* 


1402* 


2525* 


















TYP 


003342 


609 


939* 
























TYPA 


003352 


942* 


951 


960 






















TYPC 


003370 


944 


946* 
























TYPO 


C03416 


950 


952* 


957 


959 




















TYPDAT 


003462 


942* 


943 


946 


948 


952 


956* 


958* 


961* 












TYPE = 


104000 


460* 


671 


710 


731 


750 


761 


970 


1016 


1082 


1093 


1111 


1237 


1241 






1245 


1268 


1390 


1440 


1460 


1489 


2187 


2192 


2197 


2202 


2207 


2212 


2217 






2344 


2349 


2354 


2359 


2364 


2369 


2374 


2860 


2863 


2876 


2879 


2900 


2903 






2913 


























TYPES » 


104001 


461* 


1363 


2179 


2336 




















TYPF 


003434 


947 


956* 
























TYPG 


003446 


949 


958* 
























TYPS 


003464 


610 


964* 


972 






















TYPSA 


003510 


968 


970* 
























TYPSB 


003512 


966* 


967 


971* 






















UMASK 


001402 


569* 


780 


829 


1308 


1420* 


















X a 


000063 


1495* 


1497 


1503* 


1513 


1519* 


1531 


1537* 


1547 


1553* 


1563 


1569* 


1590 


1596* 






1616 


1622* 


1643 


1649* 


1659 


1665* 


1680 


1686* 


1706 


1712* 


1732 


1738* 


1759 






1765* 


1786 


1792* 


1801 


1807* 


1816 


1822* 


1831 


1837* 


1846 


1852* 


1867 


1873* 






1890 


1896* 


1932 


1938* 


1961 


1967* 


1985 


1991* 


2013 


2019* 


2042 


2048* 


2076 






2082* 


2104 


21 10* 


2142 


2148* 


2168 


2174* 


2247 


2253* 


2273 


2279* 


2293 


2299* 






2322 


2328* 


2397 


2403* 


2437 


2443* 


2461 


2467* 


2483 


2489* 


2506 


2512* 


2534 






2540* 


2558 


2564* 


2582 


2588* 


2605 


2611# 


2629 


2635# 


2657 


2663* 


2674 


2680* 






2697 


2703. 


2710 


2716* 


2736 


2742* 


2761 


2767* 


2782 


2788* 


2797 


2803# 


2811 






2817* 


























XOR 


002676 


803 


823* 
























XORA 


002020 


666 


682# 
























XORADD 


001276 


526* 


669* 


684* 
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XORFLQ 002016 670* 
a 017432 A0^^^ 
1223 
2923 
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CROSS REFERENCE TABLE - 

680# 685« 800 1523 

418 420# 426 481 # 

1229 1981 2163 2230 



USER SYMBOLS 

2790 2805 

ABAif AB60 ABBtf 6790 
2233 2387 2410 2414 



SEQ 0074 

753 954 1133 1142 
2419 3424 2428 3828 



. ABS. 017432 000 



ERRORS detected: 

CZDLAG.CZDLAGaCZDLAG.PII 
run-time: 3 7 1 SECONDS 
RUN-TIME ratio: 49/13=3.6 
CORE USED: 11K (21 PAGES) 

DOCUMENT PAGES: 74 



